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

Aeolian-Vox

Sub Me_Marco()
    Dim Exwb1 As Object, Exwb2 As Object, tArr
    Set Exwb1 = GetObject("C:\xls文件\表格01.xls")
    Set Exwb2 = GetObject("C:\表格\临时.xls")
    tArr = Exwb1.Sheets("情况表").Range("A1").Resize(12, 8)
    Exwb2.Sheets("报表").Range("B2").Resize(12, 8) = tArr
    Exwb1.Close False
    Exwb2.Close True
    Set Exwb1 = Nothing
    Set Exwb2 = Nothing
End Sub

stx1980710

QUOTE:

以下是引用Aeolian-Vox在2007-2-13 12:38:58的发言：
Sub Me_Marco()
    Dim Exwb1 As Object, Exwb2 As Object, tArr
    Set Exwb1 = GetObject("C:\xls文件\表格01.xls")
    Set Exwb2 = GetObject("C:\表格\临时.xls")
    tArr = Exwb1.Sheets("情况表").Range("A1").Resize(12, 8)
    Exwb2.Sheets("报表").Range("B2").Resize(12, 8) = tArr
    Exwb1.Close False
    Exwb2.Close True
    Set Exwb1 = Nothing
    Set Exwb2 = Nothing
End Sub

曾试过这样的方法，但这样会造成目标文件“临时.xls”，操作以后，该文件不能打开！

请测试一下！

Aeolian-Vox

楼上的兄弟是指，在执行代码的过程中，再去打开‘临时.xls’？？？

stx1980710

QUOTE:

以下是引用Aeolian-Vox在2007-2-13 12:55:16的发言：
楼上的兄弟是指，在执行代码的过程中，再去打开‘临时.xls’？？？

就是执行完你的代码，然后再去打开‘临时.xls’文件，查看执行的结果，就会打不开该文件！

Aeolian-Vox

哦，那不是打不开，而是被隐藏了。在窗口菜单下可以取消隐藏。

Sub Me_Marco()
    Dim Exwb1 As Object, Exwb2 As Object, tArr
    Application.ScreenUpdating = False
    Set Exwb1 = GetObject("C:\xls文件\表格01.xls")
    Set Exwb2 = GetObject("C:\表格\临时.xls")
    tArr = Exwb1.Sheets("情况表").Range("A1").Resize(12, 8)
    Exwb2.Sheets("报表").Range("B2").Resize(12, 8) = tArr
    Exwb1.Close False
    Windows(Exwb2.Name).Visible = True
    Exwb2.Close True
    Set Exwb1 = Nothing
    Set Exwb2 = Nothing
    Application.ScreenUpdating = True
End Sub
这个代码OK了。

stx1980710

还真是被隐藏了！

但这种方法，实质上还是打开了工作簿，

朋友还有没有别的方法，分享一下！

Aeolian-Vox

QUOTE:

以下是引用stx1980710在2007-2-13 13:15:42的发言：

还真是被隐藏了！

但这种方法，实质上还是打开了工作簿，

朋友还有没有别的方法，分享一下！

我的理解是：不打开文件，其实是用了我们在某种情况下看不到被打开的文件而已。

还有一种办法是用代码操作宏表函数。代码比较烦。

agstick

QUOTE:

以下是引用stx1980710在2007-2-13 12:33:44的发言：

还是请你老人家做个例子，也让我们学习一下！

关键是如何定位到要复制数据的地方，excel文件的结构我还真不清楚，有待进一步研究，二进制高手可以一试。

TGB

'以下代码放在你的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:你老家伙要是都不清楚,哪谁还清楚.

[此贴子已经被作者于2007-2-13 13:41:04编辑过]

LangQueS

QUOTE:

以下是引用TGB在2007-2-13 12:36:20的发言：
恭喜LangQueS..

谢谢TGB先生！