如何不打开相关文件，复制文件1的内容到文件2(在22楼解决！)

LangQueS

QUOTE:

以下是引用TGB在2007-2-13 13:32:19的发言：

'以下代码放在你的langques的问题.xls工作簿
Public Sub kkk()

  ol$ = [e4].Value
  nl$ = [e5].Value
 
  Set yb = GetObject([c4] & "\" & [d4])
  Set md = GetObject([c5] & "\" & [d5])
 
   For j% = 1 To Windows.Count
      Windows(j).Visible = True
   Next
  
  yb.Sheets(ol).UsedRange.Copy md.Sheets(nl).[b2]
 
  yb.Close False
  md.Close True

End Sub

俺咋天才看到这个方法,原来兄弟们都会,其实打开工作簿又不妨碍你什么.为何总是不想打开,

agstick:你老家伙要是都不清楚,哪谁还清楚.

再谢谢TGB先生。

解释一下：不是不想打开文件，是曾为朋友做个工具，他的单位已经采用了不正确的管理方式，形成了成千上万个格式相同的“微型Excel文件”。请T先生暂且原谅。

winland

学习爱歌学习的ADO方法做了个用ADO处理你这个问题的. 那些文件目录和工作表名称没有使用变量. 你可以自己改下.

多谢爱歌学习的帖子.

Sub bb()
Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
Dim arr() As Variant
Dim iRow As Integer
Dim iCol As Integer
With CNN
.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"extended properties='Excel 8.0;hdr=no';" & _
"data source=C:\temp\表格01.xls"
.Open
End With
RST.Open "select * from [情况表$A1:H12]", CNN, 1, 3
iRow = RST.RecordCount
iCol = RST.Fields.Count

ReDim arr(1 To iRow, 1 To iCol) As Variant

For i = 1 To iRow
    For j = 1 To iCol
        arr(i, j) = RST.Fields(j - 1).Value
    Next j
    RST.MoveNext
Next i
'RST.Update
RST.Close
CNN.Close

With CNN
.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"extended properties='Excel 8.0;hdr=no';" & _
"data source=C:\temp\临时xls"
.Open
For i = 1 To iRow
    For j = 1 To iCol
    strt = "update [报表$" & Chr(97 + j) & (i + 1) & ":" & Chr(97 + j) & (i + 1) & "] set f1='" & arr(i, j) & "'"
    .Execute strt
    Next j
Next i
End With

qxR2G7VY.zip (9.18 KB, 下载次数: 880)

2007-2-13 20:59 上传

点击文件名下载附件
如何不打开相关文件，复制文件1的内容到文件2

LangQueS

非常感谢winland先生！你提供的代码很好用，正是我最需要的！

预祝春节快乐！

LangQueS

同时感谢stx1980710先生、agstick先生(眨眼的)、TGB先生、winland先生、Aeolian-Vox先生，辛苦大家了！

文科生

有两个问题:

1、文本数据复制不到

2、数值数据复制后变成文本格式

兰州人

我也碰到这个问题,需求是

通过扫描某个目录下,得到n个excel文件,并提取每个excel中有多少个sheet.汇总到一个excel中,做个目录文件,点击就能得直接到这个sheet中.

有哪位大侠能帮个忙,提个思路也行,先谢谢了.

winland

QUOTE:

以下是引用文科生在2007-2-16 14:40:01的发言：

有两个问题:

1、文本数据复制不到

2、数值数据复制后变成文本格式

对第一个可以加个imex=1来解决,第2个要再看看.

With CNN
.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"extended properties='Excel 8.0;hdr=no;imex=1';" & _
"data source=C:\temp\表格01.xls"
.Open
End With

winland

QUOTE:

以下是引用winland在2007-2-16 15:41:12的发言：

对第一个可以加个imex=1来解决,第2个要再看看.

With CNN
.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"extended properties='Excel 8.0;hdr=no;imex=1';" & _
"data source=C:\temp\表格01.xls"
.Open
End With

对第二个问题, 如果那个临时.xls文件里如D3:D13的格式是数字的话,运行后的插入的数据会是数字. 原来的格式是General的话,就会把数字改为字符. 好像在运行时不可以改已经打开的RST的Field的Type.

文科生

我试过源表的数据是什么格式，临时.xls表里和源数据表相对应的单元格调成一样格式就OK了.

请 WINLAND兄试试后看有何更好的办法?

winland

QUOTE:

以下是引用文科生在2007-2-16 18:22:26的发言：

我试过源表的数据是什么格式，临时.xls表里和源数据表相对应的单元格调成一样格式就OK了.

请 WINLAND兄试试后看有何更好的办法?

我也没什么办法了。个人觉得ADO处理Excel里主要是针对数据本身，对格式这些就没办法了，不知道我的理解对不对。