[已解决]请教！用VBA将A表数据导入B表中...。。。

80013025 · 发表于 2011-5-30 15:12

本帖最后由 80013025 于 2011-5-30 15:13 编辑

如何用VBA实现,将（数据库DATA.xls）

里的数据导入到这张（我的工作表.xls）表中

请帮忙做个样式参考谢谢~！！！

最佳答案

月排行榜 / 总排行榜

天马

2011-5-30 15:44

回复 80013025 的帖子

Sub test()
Dim wkb As Workbook
Set sht = Workbooks.Open(ThisWorkbook.Path & "\数据库DATA.xls")
wkb.Worksheets("sheet1").Cells.Copy Workbooks("我的工作表.xls").Worksheets("sheet1").Cells
wkb.Close
End Sub

复制代码

附件my.rar (26.44 KB, 下载次数: 33)

天马 · 发表于 2011-5-30 15:44

回复 80013025 的帖子

Sub test()
Dim wkb As Workbook
Set sht = Workbooks.Open(ThisWorkbook.Path & "\数据库DATA.xls")
wkb.Worksheets("sheet1").Cells.Copy Workbooks("我的工作表.xls").Worksheets("sheet1").Cells
wkb.Close
End Sub

复制代码

附件my.rar (26.44 KB, 下载次数: 33)

amulee · 发表于 2011-5-30 15:48

不打开工作簿获取外部数据示意，给你参考一下

Sub Test()
Dim Rng As Range
Set Rng = Range("B3")
Rng.Formula = "='" & ThisWorkbook.Path & "\[数据库DATA.xls]" & "Sheet1'!" & Rng.Address
Rng = Rng.Value
End Sub

复制代码

天马 · 发表于 2011-5-30 15:59

回复 amulee 的帖子

阿木老师的方法，学习了。{:171:}

sunjing-zxl · 发表于 2011-5-30 16:09

学习了

80013025 · 发表于 2011-5-30 16:23

回复天马的帖子

大侠，如果只单纯导入数值，这段代码该怎么修改？？？

天马 · 发表于 2011-5-30 16:37

本帖最后由天马于 2011-5-30 16:42 编辑

wkb.Worksheets("sheet1").Cells.Copy Workbooks("我的工作表.xls").Worksheets("sheet1").Cells
这句是复制整个工作表
比如只要复制B3：Q55此数据区域的内容，可改为如下
wkb.worksheets("sheet1").range("c3:q55").copy workbooks("我的工作表.xls").worksheets("sheet1").range("c3:q55")

80013025 · 发表于 2011-5-30 17:04

本帖最后由 80013025 于 2011-5-30 17:05 编辑

回复天马的帖子

大侠谢谢你的热情帮助~！！！

我想，你还没理解我的意思

我的想法是，

将【数据库DATA】数据导入到【我的工作表.xls】里，而不破坏【我的工作表.xls】里面的单元格颜色和线框。

请大侠指导~！！！谢谢~！！！

80013025 · 发表于 2011-5-30 18:54

回复 amulee 的帖子

版主~！！！

将【数据库DATA】数据导入到【我的工作表.xls】里，而不破坏【我的工作表.xls】里面的单元格颜色和线框。

请问该怎么做！！！谢谢~！！！

天马 · 发表于 2011-5-30 19:59

回复 80013025 的帖子

你再试看

附件my1.rar (31.13 KB, 下载次数: 12)

		自动登录	找回密码
密码			注册