如何用vb写个按钮，一点就打开指定位置的excel文件，而且打开的excel文件显示在最前面
如何用vb写个按钮，一点就打开指定位置的excel文档，而且打开的excel文档显示在最前面，且显示sheet2的内容？？
第1个回答 2012-06-11
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
编程时，可能对你有用。本回答被网友采纳
第2个回答 2012-06-11
'创建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" 不就行了，你给别人什么乱回答的作为标准答案还要我说什么呢？？？？
追问大哥 分数肯定给你，“推荐答案”是百度给的，我真的是冤枉的。你的代码要加上 objectExcel.Visible = True
excel文档才能显示，但是显示的文档是只读属性，并且xlBook.worksheets(1) 改成xlBook.worksheets(2) 打开也不会显示sheet2 。
我的问题其实很简单，就是点击按钮后指定位置的文件（文件中指定的sheet）就像我们双击那样被打开。 还有通过代码打开的word文件，原先链接的邮件合并数据源会丢失不知怎么搞得？
相似回答
