sub 获取外部数据()
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Dim Temp As String
Set Wb1 = ThisWorkbook
Temp = ThisWorkbook.path & "\111.xlsx" '外部文件路径
Set Wb2 = GetObject(Temp) '后台打开外部文件
Wb1.Sheets("Sheet1").range("A1") = Wb2.Sheets("Sheet1").range("A1") '引用
Wb2.Close False '关闭外部文件
End Sub
Workbooks("C:\Documents and Settings\Administrator\桌面\黄石成美自施\K01(总的部分)\K0101第一册\K0101ml.xls").open
workbooks(1).sheets("sheet1").cells(1,1).value=Workbooks("K0101ml.xls").sheets("sheet1").cells(1,1).value
workbooks("K0101ml.xls").close
你可以自己改改,也可以用循环来实现多个单元格引用
excel使用VBA制作在sheet2中的单元格A1和B2中输入数据后到SHEET1中查找A1和2、可不可以不要把单独的单元格和列放在一起说啊,到底是一列还是一个
请查阅VBA手册。
大概可以这样实现:
Sub RoundRegion()
For Each c In ActiveCell.CurrentRegion.Cells
'你的处理代理在这里添加
Next
End Sub