Question

VBA A.xls工作中数据导入到B.xls A.xls是已经打开的工件　b.xls a例＝a.xls d例　b例＝f例　c例=c例

VBA A.xls工作中数据导入到B.xls A.xls是已经打开的工作表
　b.xls a例＝a.xls d例　
　　　b例＝　　　f例　
　　　c例＝　　　c例
yenanyong@gmail.com

Answer 1

代码放如 B工作簿的一个表里面

Sub AAA()
With Workbooks("A.xls").Worksheets("sheet1")
.Columns(4).Copy Columns(1)
.Columns(6).Copy Columns(2)
.Columns(3).Copy Columns(3)
End With
End Sub

追问

我想你理解错了，　　　我要把代码放去A工作表里，B在不打开的情况下，导入数据

追答

那就先打开再复制咯，加个打开的代码而已。放心，你看不到他打开的。
代码放A表。

Sub AAA()
Dim xlbook As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xlbook = Workbooks.Open("D:\B.xls")
With xlbook.Worksheets("sheet1")
Columns(4).Copy .Columns(1)
Columns(6).Copy .Columns(2)
Columns(3).Copy .Columns(3)
End With
xlbook.Close True
Set xlbook = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "完成"
End Sub

追问

b.xls是不存在的，　　　要新建一个表格呢

Answer 2

如果B.XLS是不存在的，就别那么复杂了，就在A.xls打开状态，另存在就可一了！

Answer 3

再问问别人。那里，然后是那里。
我将在更多的河水中游泳，
伟大的哲学家。 不过，还好：涅瓦河面
我的歌，只要它有意
眼泪迁徙
他被醉倒在一么藤林的相的屋中哈哈