会员登录 - 用户注册 - 网站地图 Office中国(office-cn.net),专业Office论坛
当前位置:主页 > 技巧 > Excel技巧 > 操作 > 正文

如何在Excel中使用文件对话框

时间:2013-07-02 08:17 来源:网络 作者:未知 阅读:
如何在Excel中使用文件对话框
注意,打开程序的时候点击:工程-引用-“microsoft excel 11.0 object library”(我的是XP版本和OFFICE2003) + 工程-部件-"microsoft common dialog control 6.0"

'定义excel对象
Public oldxls As Excel.Application
'定义工作簿对象
Public oldbook As Excel.Workbook
'定义工作表对象
Public oldsheet As Excel.Worksheet
'开始 连接 EXCEL
Private Sub Form_Load()
  Call JoinExcel
End Sub

Public Sub
   JoinExcel()
  On Error Resume Next
   Set oldxls = GetObject(App.Path, "Excel.Application")
    If Err Then Err.Clear
    Set oldxls = CreateObject("Excel.Application")
      If Err Then
       Exit Sub
      End If
   End If
    oldxls.Visible = True
    Set oldbook = oldxls.Workbooks.Add
    Set oldsheet = oldbook.Worksheets(1)
End Sub


Private Sub Command1_Click() '第二步--执行“打开”对话框
    Call OpenExcel
End Sub

Public Sub OpenExcel()
      CommonDialog1.Filter = "Excel文件| *.xls"
      CommonDialog1.Action = 1
     If CommonDialog1.FileName <> "" Then
            expath = CommonDialog1.FileName
           Workbooks.Open FileName:=expath
           oldbook.Close
      Else
     End If
End Sub

Private Sub Command2_Click() '第三步--执行“保存”对话框
          Call SaveExcel

End Sub

Public Sub SaveExcel()
      CommonDialog1.Filter = "Excel文件| *.xls"
       CommonDialog1.Action = 2
     If CommonDialog1.FileName <> "" Then
            expath = CommonDialog1.FileName
               ActiveWorkbook.SaveAs FileName:=expath
      Else
End If

End Sub

(责任编辑:admin)

顶一下
(1)
100%
踩一下
(0)
0%
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价: