excel中怎样读取另一个文件

显示全部楼层 · 2016-1-3 15:50:37

第一种方法:打开另一个文件,copy,paste:触发按钮单机事件,VBA如下:[code=vb] Private Sub CommandButton1_Click()Dim towb As WorkbookDim tows As WorksheetDim torow As IntegerDim fromwb As WorkbookDim fromws As WorksheetDim fromrow As IntegerDim projectnameDim iDim openfiles
'input the filepath of y...

千问 · 2016-1-3 15:50:37

Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo errhandler
FilesToOpen =...

千问 · 2016-1-3 15:50:37

用xplorer2（一个资源管理器，可以直接取得所有文件的文件名，包含路径和后缀。在网上可找到该软件）选择D:\My Documents\信用村下的所有文件（即你需要取信息的文件），然后用alt+c，取得所有文件的路径和文件名；copy到一个一个文本文件（比如用ultraedit）中，会得到按行排列的“D:\My Documents\信用村\04 李四.x...

千问 · 2016-1-3 15:50:37

解决方式：Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim Sql$, Cnn As Object On Error Resume Next Set Cnn = CreateObject("ADODB.conne...

千问 · 2016-1-3 15:50:37

插入，对象或者附件。...