0

外部ドライブからファイルをコピーしてExcelに貼り付ける必要があります。ファイルを参照することはできますが、それらの値を新しいシートに貼り付けることはできません...同じExcelで私のコード：

Dim fileStr As String
Sub GetOpenFile()

fileStr = Application.GetOpenFilename()
Worksheets("Sheet2").TextBox1.Value = fileStr

End Sub
Sub Button3_Click()

Workbooks.Open fileStr
ActiveSheet.Paste

End Sub
4

1 に答える 1

1

最初から何もコピーせずに、アクティブなシートに貼り付けようとしています。また、アクティブなシートは、とにかく貼り付けたいシートではない可能性があります。

代わりにこれを試してください：

Sub Button3_Click()

Dim wbToCopy As Workbook

Set wbToCopy = Workbooks.Open(fileStr)
wbToCopy.Worksheets("Sheet1").Range("A1:H100").Copy

ThisWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial

wbToCopy.Close

End Sub

ThisWorkbookマクロが実行されているブックを常に参照します

于 2012-10-09T21:38:35.100 に答える