作者:乔山办公网日期:
返回目录:excel表格制作
ExcelApp.DisplayAlerts = False 'Excel.Application
xlBook.SaveAs Filename:="D\文件夹1\c4_c7_c5.xls"
Public Sub GetExcel(strPath As String)
Dim MyXL As Object '用于存放 Microsoft Excel 引用的变量。
Dim ExcelWasNotRunning As Boolean '用于最后释放的标记。
'测试 Microsoft Excel 的副本是否在运行。
On Error Resume Next '延迟错误捕获。
'不带第一个参数调用 Getobject 函数e79fa5e98193e78988e69d83365将返回对该应用程序的实例的引用。
'如果该应用程序不在运行,则会产生错误。
Set MyXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then ExcelWasNotRunning = True
Err.Clear '如果发生错误则要清除 Err 对象。
'将对象变量设为对要看的文件的引用。
Set MyXL = GetObject(strPath)
'设置其 Application 属性,显示 Microsoft Excel。
'然后使用 MyXL 对象引用的 Windows 集合显示包含该文件的实际窗口。
MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
'在此处对文件进行操作。 ...
End Sub
'举个例子zhidao:将D盘下b.xlsx另存内为将容D盘下test.xlsx
'引用Microsoft Excel 12.0 Object Library,版本不太一样,有可能是14
Private Sub Command1_Click()
Dim xlsApp As Excel.Application
Dim xlsWorkbook As Excel.Workbook
Dim xlssheet As Excel.Worksheet
Set xlsApp = CreateObject("Excel.Application")
Set xlsWorkbook = xlsApp.Workbooks.Open("D:\b.xlsx")
Set xlssheet = xlsWorkbook.Worksheets(1)
xlsApp.Visible = False
xlsWorkbook.SaveAs "D:\test.xlsx" '另存文件
xlsApp.Quit
Set xlssheet = Nothing
Set xlsWorkbook = Nothing
Set xlsApp = Nothing
End Sub