[已解决]【已解决】求大神帮忙，如何用宏实现数据导入功能？

boyfat

       现在有A文件与B文件，现需要在B文件里的Sheet2里自动导入A文件Sheet1里面A列到D列的内容，格式排版一样，而A文件里的Sheet1里面的内容会更改与添加，因此B文件的Sheet2每次打开都需要自行检查更新。

A文件Sheet1

       一开始是使用数据导入功能实现的，现在因为某种原因，不能使用数据导入功能，
       就改为用 =[A.xlsx]Sheet1!$A:$A 对对应列进行复制也可实现，但由于实际文件内容过万条，导致每次打开都差不多要死机
自己曾试过写代码来实现功能，当Sheet1与Sheet2在同一个文件里时可实现新增功能，但把它们分开在不同文件时，在定义变量加上文件名时候就出错

Private Sub CommandButton1_Click()
lr = Sheet2.[a65536].End(3).Row + 1
lt = [A.xlsx].Sheet1.[a65536].End(3).Row
If lr > lt Then
lt = lr
End If
[A.xlsx].Sheet1.Range(("A" & lr), ("D" & lt)).Copy
Sheet2.Range("A" & lr).PasteSpecial Paste:=xlPasteValues, Transpose:=False
End Sub
       请教各位大侠，如何利用宏简单实现该功能？

最佳答案

月排行榜 / 总排行榜

wenzili

2017-3-12 22:56

Private Sub CommandButton1_Click()
Dim dadaatod As Variant
Dim rg As Range
Dim wb As Workbook
Dim n As Single

Set wb = Workbooks("A.xlsx")
Set rg = wb.Worksheets("sheet1").UsedRange
n = rg.rows.Count
Set rg = wb.Worksheets("sheet1").Range("a1").Resize(n, 4)
dadaatod = rg.Value
Set rg = ThisWorkbook.Sheets("sheet1").Range("a1")
Set rg = rg.Resize(n,4)
rg.Value = dadaatod



End Sub
数据多，用数组应该最快。
行变化，列固定。没来的急测试。看看行不？

跳转到最佳答案楼层

boyfat

有没有大神可以帮一下忙的？

wenzili

Private Sub CommandButton1_Click()
Dim dadaatod As Variant
Dim rg As Range
Dim wb As Workbook
Dim n As Single

Set wb = Workbooks("A.xlsx")
Set rg = wb.Worksheets("sheet1").UsedRange
n = rg.rows.Count
Set rg = wb.Worksheets("sheet1").Range("a1").Resize(n, 4)
dadaatod = rg.Value
Set rg = ThisWorkbook.Sheets("sheet1").Range("a1")
Set rg = rg.Resize(n,4)
rg.Value = dadaatod



End Sub
数据多，用数组应该最快。
行变化，列固定。没来的急测试。看看行不？

boyfat

wenzili 发表于 2017-3-12 22:56
Private Sub CommandButton1_Click()
Dim dadaatod As Variant
Dim rg As Range

谢谢大神指教，已经明白了

wenzili

4和n换下。resize（n,4）,两处

boyfat

wenzili 发表于 2017-3-13 13:00
4和n换下。resize（n,4）,两处

发现就这样不行，还要把n = rg.Columns.Count改为n = rg.Rows.Count

boyfat

wenzili 发表于 2017-3-12 22:56
Private Sub CommandButton1_Click()
Dim dadaatod As Variant
Dim rg As Range

再请教大神，您的程序简单易懂，我稍做修改就已经完成功能，但一个问题是，我必须同时打开A与B才能把A的内容写进B里，请问有没有方法可以不打开A也能导入A的内容？

wenzili

boyfat 发表于 2017-3-13 15:24
再请教大神，您的程序简单易懂，我稍做修改就已经完成功能，但一个问题是，我必须同时打开A与B才能把A的 ...

我也是刚学习VBA，多交流。
可以用open打开A，让后结束前再close A
应该可行。

wenzili

boyfat 发表于 2017-3-13 13:39
发现就这样不行，还要把n = rg.Columns.Count改为n = rg.Rows.Count

你说得对的。我老行列不分。

boyfat

wenzili 发表于 2017-3-13 16:04
我也是刚学习VBA，多交流。
可以用open打开A，让后结束前再close A
应该可行。

你说具体点吗？