如何用vb写个按钮，一点就打开指定位置的excel文件，而且打开的excel文件显示在最前面
如何用vb写个按钮，一点就打开指定位置的excel文档，而且打开的excel文档显示在最前面，且显示sheet2的内容？？...
如何用vb写个按钮，一点就打开指定位置的excel文档，而且打开的excel文档显示在最前面，且显示sheet2的内容？？
展开
展开全部
Sub 打开数据文件()
文件格式 = "*.XCL ,*.*"
读入文件 = Application.GetOpenFilename(Filefilter:=文件格式)
If 读入文件 = False Then Exit Sub
' 长度 = Len(读入文件)
' For I = 长度 - 1 To 1 Step -1
' If Mid$(读入文件, I, 1) = "\" Then
' 文件夹 = Left$(读入文件, I)
' 文件名 = Mid$(读入文件, I + 1, 长度 - I + 1)
' Exit For
' End If
' Next
Workbooks.Open Filename:=读入文件 '(文件夹 + 文件名0
End Sub
编程时，可能对你有用。
文件格式 = "*.XCL ,*.*"
读入文件 = Application.GetOpenFilename(Filefilter:=文件格式)
If 读入文件 = False Then Exit Sub
' 长度 = Len(读入文件)
' For I = 长度 - 1 To 1 Step -1
' If Mid$(读入文件, I, 1) = "\" Then
' 文件夹 = Left$(读入文件, I)
' 文件名 = Mid$(读入文件, I + 1, 长度 - I + 1)
' Exit For
' End If
' Next
Workbooks.Open Filename:=读入文件 '(文件夹 + 文件名0
End Sub
编程时，可能对你有用。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
'创建excel工程
Set objectExcel = CreateObject("Excel.Application")
'打开xls
Set xlBook = objectExcel.workbooks.open(fileName)
'打开第2个表，一般第一个是sheet1,第二个就是sheet2了。
Set xlSheet = xlBook.worksheets(1)
Set objectExcel = CreateObject("Excel.Application")
'打开xls
Set xlBook = objectExcel.workbooks.open(fileName)
'打开第2个表，一般第一个是sheet1,第二个就是sheet2了。
Set xlSheet = xlBook.worksheets(1)
更多追问追答
追问
文件路径写到哪里？ 比如名为“1.xls”的文件在 E盘根目录，要用Command1打开？？
还有，在用你这个代码打开一个word文档后，自动运行该word文档里的一个Command1按钮怎么写代码？
追答
fileName 就是全路径的文件名了啊，如fileName="E:\1.xls" 不就行了，你给别人什么乱回答的作为标准答案还要我说什么呢？？？？
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
