用vba从一个关闭着的excel表读取数据写入到当前打开的excel表
我已经取得了需要读取数据的表的路径，如果需要把他某个单元格的数据复制到当前工作表，怎么弄呢？
也好 那么我想打开一个excel表，从里面写入数据到原来的表之后就关闭他，应该用什么命令呢？
application.Workbooks(文件名).Close true或false表示是否保存
复制就是application.Workbooks("文件名").sheets("表名").range(源单元格地址).copy ActiveSheet.range(目标单元格地址)
你可以用Set xlApp = CreateObject("Excel.Application")来建立一个看不到的Excel应用程序对象，然后用xlApp 来替代上面的Application，就会看不到打开的过程了。
指定一个文件名，然后 文件名.OPEN，
打开以后用 文件名.close 关闭。
关闭时注意，如果关闭前做了修改，那么关闭时会提示是否保存修改，如果选择“否”，这时 VBA 的调用过程就会出错。
解决的办法是在 .CLOSE 后面加上savechanges:= true 或 false
是保存再关闭还是不保存就关闭看你自己的意愿了。
从另外一个未打开的Excel文件中读取数据的函数
下面这个函数调用XLM宏从未打开的工作簿中读取数据.
*注意: 该函数不能用于公式.
GetValue函数,需要以下四个变量
path: 未打开的Excel文件的路径 (e.g., "d:\test")
file: 文件名(e.g., "test.xls")
sheet: 工作表的名称 (e.g., "Sheet1")
ref: 引用的单元格 (e.g., "C4")
'*********函数如下
Private Function GetValue(path, file, sheet, ref)
' 从未打开的Excel文件中检索数据
Dim arg As String
' 确保该文件存在
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
' 创建变量
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
' 执行XLM 宏
GetValue = ExecuteExcel4Macro(arg)
End Function
使用该函数:
将该语句复制到VBA的模块中,然后,在适当的语句中调用该函数. 下面的例子显示D:\test 下的文件test.xls 的Sheet1中的单元格”A1”的内容.
Sub TestGetValue()
p = "d:\test"
f = "test.xls"
s = "Sheet1"
a = "A1"
MsgBox GetValue(p, f, s, a)
End Sub
下面还有一个例子.这个语句从一个未打开的文件中读取1200个数值(100行12列),并将结果填到当前工作表中.
Sub TestGetValue2()
p = "d:\test "
f = "test.xls"
s = "Sheet1"
Application.ScreenUpdating = False
For r = 1 To 100
For c = 1 To 12
a = Cells(r, c).Address
Cells(r, c) = GetValue(p, f, s, a)
Next c
Next r
Application.ScreenUpdating = True
End Sub
说明: 如果工作簿处于隐藏状态,或者工作表是图表工作表,将会报错.
当前表中的第一个单元个，然后自动关闭。
Workbooks.Open Filename:="C:\abc.xls"
Me.Cells(1, 1) = Workbooks("abc.xls").Worksheets("Sheet1").Cells(1, 1)
Workbooks("abc.xls").Close
用vba从一个关闭着的excel表读取数据写入到当前打开的excel表
复制就是application.Workbooks("文件名").sheets("表名").range(源单元格地址).copy ActiveSheet.range(目标单元格地址)你可以用Set xlApp = CreateObject("Excel.Application")来建立一个看不到的Excel应用程序对象，然后用xlApp 来替代上面的Application，就会看不到打开的过程了。
...将一个EXCEL文件中(关闭的文件)的SHEET页复制到当前的EXCEL中...
Set wkbk = Workbooks.open("源文件.xls") '先打开要复制的文件 wkbk.sheets(1).Copy thisworkbook.sheets(1) '再将此文件中第一个工作表复制到当前工作簿的第一个工作表前 End Sub 这样是最简单的代码了，但是有些限制：如果工作表的某些单元格中字符数超过255个，则副本的该单元格中只保留...
EXCEL求VBA代码,点击按钮实现从未打开的EXCEL表sheet1文件复制内容到当 ...
附件是例子，自己根据情况自行修改
如何利用VBA读取Excel中数据并输出到Excel
1、首先，在Excel表格中输入如图内容，以方便在VBA中进行读取和处理操作。2、进入VBA环境，可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”，从其右键菜单中选择“插入”-“用户窗体”项。3、接着向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。...
用vb打开一个已经的exel文件,将数据提取出来,简单处理并存在另外的ex...
xlsApp.Visible = False '使Excel隐藏不可见 xlsApp.Workbooks.Open ("C:\\1.xls") '打开EXCEL文件 '添加新的工作簿 xlsApp.Workbooks.Add '提取单元格数据并写到另一个单元格 ActiveWorkbook.Sheets("Sheet1").Range("A1").Value = xlsApp.Workbooks("1.xls").Sheets("Sheet1").Range...
excel中如何将用vba把表一的信息录入表二
1、可以先利用宏录制来自动生成代码，然后再进行修改。操作方法如下：第一步，打开一个excel应用，新建一个白空表格，并录入数据。2、第二步，点击excel应用程序窗口状态栏中左侧的“宏录制”按钮。3、第三步，然后在表1中，选中左上角第一个有数据的单元格。4、第四步，接着按下CTRL+SHIFT键，再...
使用Excel VBA,如何将某一个工作表保存到新建的Excel中?
代码如下：Sub 分开存为工作薄()Dim Sh As Worksheet Dim Wk1 As Workbook Dim Wk2 As Workbook Dim iPath As String Application.ScreenUpdating = False ‘将屏幕更新关闭 Application.DisplayAlerts = False iPath = ThisWorkbook.Path & "\\" '保存路径为当前工作簿所在路径 Set Wk1 = Work...
vba如何新建一个excel并且从另一个excel中导入数据到这个新建的excel中...
1.打开表格 2.按alt+F11 3.点击插入 4.点击模块 5.粘贴如下代码 '自定义公式-按ALT+11-插入-模块(提取)Sub 提取()If MsgBox("为避免使用时表格被占用，您将提取收货人为 陈杭荣 所在行至 陈杭荣流水账 后删除该行，是否继续", vbOKCancel) = vbOK ThenUserForm1.Show 0DoEvents 当前...
EXCEL VBA中怎么把另外一个EXCEL文件的sheet1完全(数据及格式)复制到...
按ALT+F11,插入一个模块,输入下列代码.即可 Sub copyAll()fname = "C:\\Book2.xls" '需要复制的excel文件地址及文件名,你自己修改 Set d = GetObject(fname) '打开文件 d.sheets("sheet1").Cells.Copy ActiveSheet.Cells(1, 1) '将sheet1完全复制到当前表 d.Close '关闭文件 Se...
请教如何利用VBA实现将一个工作表复制到另一个工作簿中
返回Excel主界面，点击"开发工具"下的"宏"，找到并选择"复制表"，然后点击"执行"按钮。此时，"工作表1"中的指定工作表"移动表"已成功复制到"工作表2"的第1个工作表中，操作过程直观且高效。通过这种方式，你可以轻松地使用VBA在Excel中实现工作表的复制，无需手动操作，大大提高了工作效率。
