0

2 つのシートがあり、1 つのシートには 2 つのボタンBrowsefileとOpenfile1 つの textboxがありTextBox1ます。ボタンを使用Browsefileして開きたいファイルを選択し、ボタンを使用しOpenfileてワークブックを開きます。

問題は、アクティブなブックに追加するのではなく、新しいブックで開くことです。どうすればこれを解決できますか？

Public fileStr As String
Sub GetOpenFile()

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

End Sub
Sub Paste_Click()
Dim wbk1 As Workbook, wbk2 As Workbook

Set wbk1 = ActiveWorkbook
Set wbk2 = Workbooks.Add(fileStr)

wbk2.Sheets(1).Cells.Copy wbk1.Worksheets("Sheet2").Cells(1, 1)

End Sub
4

1 に答える 1

1

これを試してください:)ファイルを選択して、開いているワークブックの最後にある最初のシートをコピーできます。

Sub Paste_Click()
Dim wbk1 As Workbook, wbk2 As Workbook

fileStr = Application.GetOpenFilename()

Set wbk1 = ActiveWorkbook
Set wbk2 = Workbooks.Add(fileStr)

wbk2.Sheets("Sheet1").Copy After:=Workbooks("WorkbookNameYouCopyCodeInto").Sheets(3)
wbk2.Close
End Sub
于 2012-10-10T12:44:20.380 に答える