vb怎么把TEXT中的内容写到指定路径的EXCEL 文件中，为啥老是提示 类不支持自动化或不支持期望的接口 错误 15
最好给个代码，我的电脑是win7系统PrivateSubCommand6_Click()DimexAsNewExcel.ApplicationDimexbAsExcel....
最好给个代码，我的电脑是win7系统
Private Sub Command6_Click()
Dim ex As New Excel.Application
Dim exb As Excel.Workbook
Dim exs As Excel.Worksheet
Set exb = ex.Workbooks.Open("D:\11.xls ")
ex.Visible = True
Set exs = exb.Worksheets(1)
exs.Select
exs.Cells(35, 1) = "1"
exb.Close True
ex.Quit
Set exs = Nothing
Set exb = Nothing
Set ex = Nothing 展开
Private Sub Command6_Click()
Dim ex As New Excel.Application
Dim exb As Excel.Workbook
Dim exs As Excel.Worksheet
Set exb = ex.Workbooks.Open("D:\11.xls ")
ex.Visible = True
Set exs = exb.Worksheets(1)
exs.Select
exs.Cells(35, 1) = "1"
exb.Close True
ex.Quit
Set exs = Nothing
Set exb = Nothing
Set ex = Nothing 展开
1个回答
展开全部
ex.Workbooks.Open("D:\11.xls ")
改为
ex.Workbooks.Add("D:\11.xls ")
改为
ex.Workbooks.Add("D:\11.xls ")
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
