0

チーム、

マクロに優れており、セルE15の値を9月のワークブック名​​から別のワークブック名​​形式のD15にコピーしようとしているのは初めてであり、以下のコーディングではそれを行うことができません。私を助けてください

私はそうするために以下のコーディングを使用しました。

Sub COPYCELL()
Dim wbk As Workbook
strFirstFile = "c:\documents and Settings\msivas\Desktop\James\September.xls"
strSecondFile = "c:\documents and Settings\msivas\Desktop\James\Format.xls"
Set wbk = Workbooks.Open(strFirstFile)
With wbk.Sheets("Summary")
Range("E15").Copy
End With
Set wbk = Workbooks.Open(strSecondFile)
With wbk.Sheets("sheet1")
Range("D12").PasteSpecial Paste:=xlPasteAll
End With
End Sub

エラーを受信して​​いて、知ることができません。

4

2 に答える 2

3

このアップデートを試してください。wbk 変数をリサイクルしないことで、問題を回避できます。

Sub COPYCELL()
Dim wbkOrg As Workbook, wbkDest as workbook
dim strFirstFile as string, strSecondFile as string

strFirstFile = "c:\documents and Settings\msivas\Desktop\James\September.xls"
strSecondFile = "c:\documents and Settings\msivas\Desktop\James\Format.xls"

Set wbkOrg = Workbooks.Open(strFirstFile)
Set wbkDest = Workbooks.Open(strSecondFile)

wbkOrg.Sheets("Summary").Range("E15").Copy wbkDest.Sheets("sheet1").Range("D12")

End Sub
于 2012-09-26T18:48:14.067 に答える
0

私のコメントによると、これは私にとってはうまくいきます：

Option Explicit
Sub COPYCELL()
    Dim wbk1 As Workbook, wbk2 As Workbook
    Dim strFirstfile As String, strSecondFile As String

strFirstfile = "c:\documents and Settings\msivas\Desktop\James\September.xls"
strSecondFile = "c:\documents and Settings\msivas\Desktop\James\Format.xls"

    Set wbk1 = Workbooks.Open(strFirstfile)

    Set wbk2 = Workbooks.Open(strSecondFile)

    With wbk1.Sheets("Summary")
        .Range("E15").Copy
    End With

    With wbk2.Sheets("sheet1")
        .Range("D12").PasteSpecial Paste:=xlPasteAll
    End With
End Sub
于 2012-09-26T18:58:06.983 に答える