永发信息网

在已打开的Excel中,在Sheet3中打开指定文件(用VBA)

答案:2  悬赏:60  手机版
解决时间 2021-03-09 03:35
strpath = Application.GetOpenFilename("ACCESS文件(*.mdb), *.mdb")

Application.Workbooks.Open (strpath)

如上语句,条开*.mdb文件后,会打开另外一个Excel文件,
求:怎样更改上边语句,使它不打开另外一个Excel文件,而从当前Excel表的Sheet3表单中打开*.mdb文件内容?
最佳答案
Application.ScreenUpdating = False
Dim sh As Workbook
Filename = Application.GetOpenFilename(FileFilter:="Access 数据库文件 (*.mdb),*.mdb", Title:="请选择文件")
If Filename <> False Then
If Dir(Filename) <> ThisWorkbook.Name Then
Set sh = Workbooks.Open(Filename)
'取生成新表的表单名,start
t = Filename
a = Len(t)
t1 = Left(t, a - 4)
a1 = a - 4
For m = 1 To a - 4
b = Mid(t1, a1, 1)
If b = "\\" Then
Exit For
End If
a1 = a - 4 - m
Next
C = Right(t1, m - 1)
'取生成新表的表单名,end

sh.Sheets(C).Cells.Copy ThisWorkbook.Sheets("sheet3").Range("a1")
sh.Close SAVECHANGES:=False
End If
End If
Application.ScreenUpdating = True

以上语句全部复制,执行
全部回答
两种方法: 1.你确定读取数据库表名后,将sheet3激活,然后从a1开始黏贴 这个用到ado连接数据库. 2.你新开了workbook,把这张新开的activesheet用move移动到,旧的workbook,改名sheet3也可以. 两种你参考着用吧. 如果你是写vba来开启.那么我建议你用第一种: 写法如下: dim cnn as new adodb.connection dim rs as new adodb.recordset dim cnnstr as string dim sql as string dim icols, i as integer dim datestart, dateend as date cnnstr = "dbq=" & strpath & ";defaultdir=" & 这里写mdb文件的路径 & ";driver={microsoft access driver (*.mdb, *.accdb)};driverid=25;fil=ms access;maxbuffersize=2048;maxscanrows=8;pagetimeout=5;safetransactions=0;threads=3;usercommitsync=yes;" cnn.open cnnstr sheets("sheet3").activate '这句要在你的表有"sheet3"才能使用成功 sqlstr = "selet * from 表名" cnn.commandtimeout = 0 rs.open sqlstr, cnn, 1, 3, adcmdtext for icols = 0 to rs.fields.count - 1 cells(1, icols + 1) = rs.fields(icols).name next '这个循环读取列 [a2].copyfromrecordset rs '放到a2单元格开始插入 rs.close cnn.close set rs = nothing set cnn = nothing
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
大沟塘地址在什么地方,想过去办事
下列为形成自然灾害危害程度地域差异的因素是
2018年会计行业是以财务会计为主还是管理会计
住房公积金什么时候可以全国通用?
那嘴食尚面坊在哪里啊,我有事要去这个地方
画眉鸟爬笼底是什么原因
今年流行奶茶色的发色吗?
你好平安氧气贷是陆金所放款吗
赛龙初中在哪里啊,我有事要去这个地方
买手机壳什么样的比较好。
相机滤镜是干什么用的?
立夏开什么花
北京时间2013年6月20日,在距离地球300多公里
汽车行驶一公里平均费用
浅颜色的皮鞋脏了怎么办?
推荐资讯
Einstein’sTheoryofRelativitywassoprofound
非法同居告上法庭 如何判决
女朋友做美容导师的 每天出差 偶尔做活动 每
请问大师智慧线延长到食指而且线端有x形交叉
什么是天象点价
簸箕寨我想知道这个在什么地方
紫外光谱吸收强度的主要影响因素有哪些
婚前我把车子过户给我的老婆,我父母不知道。
看见前男友的婚纱照,心情各种复杂,怎么他就
芬琳漆好还是都芳那个v0c排量小
梅西是现今最厉害的球员吗?
从哈尔滨开车到内蒙古尔多斯全程需要多少钱
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?