Dim objExcel As Excel.Application Dim objBook As Excel.Workbook Dim objSheet As Excel.Worksheet Dim Str As String Set objExcel = CreateObject("Excel.Application") Set objBook = objExcel.Workbooks.Add '新增檔 objExcel.Visible = True Set objSheet = objBook.Worksheets(1) objSheet.Cells(1, 1) = "需要寫入的資料" --------- 上面这些代码要怎么样更改啊?上面的代码不引用的话不能用啊!
Dim objExcel As Excel.Application Dim objBook As Excel.Workbook Dim objSheet As Excel.Worksheet 改为 Dim objExcel As object Dim objSheet As objectDim objSheet As object
可以直接用:CreateObject("Excel.Application")
Dim objBook As Excel.Workbook
Dim objSheet As Excel.Worksheet
Dim Str As String
Set objExcel = CreateObject("Excel.Application")
Set objBook = objExcel.Workbooks.Add '新增檔
objExcel.Visible = True
Set objSheet = objBook.Worksheets(1)
objSheet.Cells(1, 1) = "需要寫入的資料"
---------
上面这些代码要怎么样更改啊?上面的代码不引用的话不能用啊!
Dim objBook As Excel.Workbook
Dim objSheet As Excel.Worksheet
改为
Dim objExcel As object
Dim objSheet As objectDim objSheet As object