vba如何新建一个excel并且从另一个excel中导入数据到这个新建的excel中？

Posted 2023-03-27

如题

1.打开表格

2.按alt+F11

3.点击插入

4.点击模块

5.粘贴如下代码

'自定义公式-按ALT+11-插入-模块(提取)
Sub 提取()
If MsgBox("为避免使用时表格被占用，您将提取收货人为 陈杭荣 所在行至 陈杭荣流水账 后删除该行，是否继续", vbOKCancel) = vbOK Then
UserForm1.Show 0
DoEvents
当前表名 = ActiveSheet.Name
line:
If Sheets(Sheets.Count).Name = "陈杭荣流水账" Then
Else
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "陈杭荣流水账"
GoTo line
End If
Sheets(当前表名).Select
EndH = Range("e65536").End(xlUp).Row
For i = EndH To 1 Step -1
XX = Range("G" & i).Value
If InStr(XX, "陈杭荣") <> 0 Then
m = m + 1
Range("G" & i).EntireRow.Copy Sheets("陈杭荣流水账").Range("a" & m)
Range("G" & i).EntireRow.Delete '
End If
Next
Call 复制表
UserForm1.Hide
MsgBox "已拷贝删除完成"
End If
End Sub
Sub 复制表()
Dim MyBook1 As Workbook
FNAME = ThisWorkbook.Name
Set MyBook1 = Workbooks.Open("\\\\192.168.1.110\\供应部\\仓储处1\\流水帐\\外协库流水帐\\2020年外协库流水账\\陈杭荣流水账.xlsm")
Workbooks(FNAME).Sheets("陈杭荣流水账").Range("A1:I500").Copy Workbooks("陈杭荣流水账.xlsm").Sheets("提取").Range("A65536").End(xlUp).Offset(1, 0)
Workbooks("陈杭荣流水账.xlsm").Save
MyBook1.Close
Application.DisplayAlerts = False
Workbooks(FNAME).Sheets("陈杭荣流水账").Delete
Application.DisplayAlerts = True
End Sub

参考技术A Sub aa()
Set Wb = Workbooks.Open("E:\保存\保存的内容.xlsx")
With Workbooks(1).ActiveSheet
Wb.Sheets(1).[a1] = [a1]
End With
Wb.Close False '关闭
End Sub
把表格A1的数据写入 E:\保存\保存的内容.xlsx 的A1