用VB来打开指定目录下的Excel
用VB做一个Form，有两个控件，一个是Text，一个Command。在D盘的文件夹目录为：“d:\\123\234”，在234这个文件夹里有若干个名字都不同的Excel...
用VB做一个Form，有两个控件，一个是Text，一个Command。
在D盘的文件夹目录为：“d:\\123\234”，在234这个文件夹里有若干个名字都不同的Excel文件（例如：1130.xls、4567.xls ... ...）。
要求在Text里边输入一个Excel的名字（例如：1130），点击Command，就能打开1130这个Excel文件。
会的就把代码留下吧。谢谢了！ 展开
在D盘的文件夹目录为：“d:\\123\234”，在234这个文件夹里有若干个名字都不同的Excel文件（例如：1130.xls、4567.xls ... ...）。
要求在Text里边输入一个Excel的名字（例如：1130），点击Command，就能打开1130这个Excel文件。
会的就把代码留下吧。谢谢了！ 展开
1个回答
展开全部
Private Sub Command1_Click()
Dim S() As String, i As Integer, j As Integer
Dim xlApp
Dim xlBook
Dim xlSheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.DisplayAlerts = False '不显示对话框
Set xlBook = xlApp.Workbooks.Open("d:\123\234\" & Text1.text) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
end sub
Dim S() As String, i As Integer, j As Integer
Dim xlApp
Dim xlBook
Dim xlSheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.DisplayAlerts = False '不显示对话框
Set xlBook = xlApp.Workbooks.Open("d:\123\234\" & Text1.text) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
