如何把两个文件表格用VBA从另一个EXCEL表格导入数据到这个表格中?

RT... RT 展开
 我来答
EchoWasd213
2010-04-18 · TA获得超过141个赞
知道小有建树答主
回答量:122
采纳率:0%
帮助的人:114万
展开全部

能写成这样,还有什么完不成?

部分代码:

Dim xlsheet As Excel.Worksheet

Dim xlbook As Excel.Workbook

ll = ListBox1.ListIndex

Set xlbook = ThisWorkbook.Application.Workbooks.Add(ListBox1.List(ll))

Set xlsheet = xlbook.Worksheets(1)

T11.Text = xlsheet.Range(T1.Text)

xlbook.Close SaveChanges:=False

xlsheet.Copy ThisWorkbook.Sheets(1)

xlbook.Close SaveChanges:=False

若不明白之处,可联系848555411@qq.com

森林浴1
2010-04-20 · TA获得超过2311个赞
知道大有可为答主
回答量:2104
采纳率:0%
帮助的人:1350万
展开全部
Sub 导入数据()
Dim Wb As Workbook
Dim Temp As String
Application.ScreenUpdating = False
Temp = ThisWorkbook.Path & "\aaaaaaa.xls" '这个是你要导入的表文件路径
Set Wb = GetObject(Temp)
With Wb.Sheets("sheet1").Range("A2").CurrentRegion
Range("A2").Resize(.Rows.Count, .Columns.Count) = .Value
Wb.Close False
End With
Set Wb = Nothing
Application.ScreenUpdating = True
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
cafkyy
2010-04-24 · TA获得超过810个赞
知道小有建树答主
回答量:713
采纳率:33%
帮助的人:219万
展开全部
Sub 合并工作簿()
Dim FilesToOpen
Dim x As Integer

On Error GoTo ErrHandler
Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
MultiSelect:=True, Title:="Files to Merge")

If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "No Files were selected"
GoTo ExitHandler
End If

x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend

ExitHandler:
Application.ScreenUpdating = True
Exit Sub

ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
枕风揽月
2010-04-18 · TA获得超过3.9万个赞
知道小有建树答主
回答量:4099
采纳率:44%
帮助的人:718万
展开全部
未说明清楚。两个表格是怎样表格?是相同表格(复制粘贴即可)?还是总分关系,最好能附上附件。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
gm7486
2010-04-18 · TA获得超过114个赞
知道答主
回答量:350
采纳率:0%
帮助的人:164万
展开全部
VBA很容易实现
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(5)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式