别人给我写的一个程序 Set a = CreateObject("Excel.Application")没看懂
PrivateSubForm_Load()DimaAsObjectDimbAsObjectDimcAsObjectSeta=CreateObject("Excel.App...
Private Sub Form_Load()
Dim a As Object
Dim b As Object
Dim c As Object
Set a = CreateObject("Excel.Application") ‘这是什么意思啊???????
Set b = a.Workbooks.Add
Set c = b.Worksheets(1)
b.SaveAs App.Path & "\" & c.Name & ".xlsx"
'b.saveAs App.Path & "\" & c.Cells(1,1).value & ".xlsx"
a.Visible = False
End Sub 展开
Dim a As Object
Dim b As Object
Dim c As Object
Set a = CreateObject("Excel.Application") ‘这是什么意思啊???????
Set b = a.Workbooks.Add
Set c = b.Worksheets(1)
b.SaveAs App.Path & "\" & c.Name & ".xlsx"
'b.saveAs App.Path & "\" & c.Cells(1,1).value & ".xlsx"
a.Visible = False
End Sub 展开
2个回答
展开全部
Set a = CreateObject("Excel.Application")
建立一个excel模型给a
下面a就相当于开着excel,可以用它下面的命令
Workbooks.Add 新增工作簿 等等
建立一个excel模型给a
下面a就相当于开着excel,可以用它下面的命令
Workbooks.Add 新增工作簿 等等
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询