vb单击按钮添加数据到excel指定单元格 10
展开全部
引用 Microsoft Excel xx object library
为了这个我在我电脑里建立了和你一样的文件,测试以下代码无运行错误
拷贝下面的代码,
注意你的文件名是否拼写正确,另外 cells(X,Y) 里X Y用数字
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.open("D:\Ggsfxt\SJK\XXXGS\1.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
xlBook.Sheets(2).Activate
cells(1, 5) = 20
xlBook.Close (True)
xlApp.Quit
set xlBook= Nothing
Set xlApp = Nothing
End Sub
为了这个我在我电脑里建立了和你一样的文件,测试以下代码无运行错误
拷贝下面的代码,
注意你的文件名是否拼写正确,另外 cells(X,Y) 里X Y用数字
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.open("D:\Ggsfxt\SJK\XXXGS\1.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
xlBook.Sheets(2).Activate
cells(1, 5) = 20
xlBook.Close (True)
xlApp.Quit
set xlBook= Nothing
Set xlApp = Nothing
End Sub
展开全部
虽然不明白你要干什么,但这个错误是很明显的:“它要打开一个文件,但那个文件不存在!”
文件位置如下:
D:\Ggsfxt\sjk\xxxgs\1.xls
你显示的代码就是在sheet2表的A5位置加个20。
文件位置如下:
D:\Ggsfxt\sjk\xxxgs\1.xls
你显示的代码就是在sheet2表的A5位置加个20。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
通用Excel里有表间取数公式,轻松满足你这个要求。
追问
我是要用VB窗体实现对Exca表的添加删除修改功能
追答
单机的Excel里,用VBA不好做
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询