作者：乔山办公网日期：
返回目录：excel表格制作
先把没百打开表的数据，临时度引用到本表单元格问
Range("A1") = "='" & ThisWorkbook.Path & "\[1.xls]CI%&Exchange Rate Input'!r3c3"
再读取本答表单元格数据回
data=range("A1").value
清除本表临时引用答
range("A1").clearcontents
试试来吧：源百
Sub 读取数度据知道()
For i = 44 To 73
Workbooks("A").Sheets("A表").Cells(i, 2) = Workbooks("B").Sheets("B").Cells(i + 27, 5)
Next
End Sub
用VBA完全可以做到这一点的.
EXCEL VBA这方面用得不是很多.建议LZ到EXCEL HOME网站学习下.
希望对你有所帮助.
'要在VB中操作Excel，需要引用Excel对象模型
'方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library
'其中，XX.X取决于你安装的Office的版本e5a48de588b67a686964616f333号
Private Sub Command6_Click()
Dim excel_App As Excel.Application
Dim excel_Book As Excel.Workbook
Dim excel_sheet As Excel.Worksheet
'启动Excel
Set excel_App = CreateObject("Excel.Application") '引用程序对象实例
excel_App.Visible = False '设置Excel为不可见
'打开文件
Set excel_Book = excel_App.Workbooks.Open("G:\1.XLS") '工作簿实例
Set excel_sheet = excel_Book.Worksheets("Sheet2") '数据表实例
excel_sheet.Range("C1").Value = "你好!" '设置单元格C1的值为"你好!"
excel_sheet.Range("A1").Value = 100 '设置单元格A1的值为100
excel_sheet.Range("A2").Value = 9 '设置单元格A2的值为9
excel_sheet.Range("A3").Value = excel_sheet.Range("A1").Value + excel_sheet.Range("A2").Value '计算
'''''''''''''''''''''''''''''''''''
'读取数据到变量
x = excel_sheet.Range("A2").Value ' 把单元格"A2"里的数据读取出来
'关闭Excel文件,注意下面步骤很重要,不能少!!!
Set excel_sheet = Nothing
excel_App.ActiveWorkbook.Close savechanges:=True '保存对EXCELL进行更改。
Set excel_Book = Nothing
excel_App.Quit
Set excel_App = Nothing