-1

値をExcelに貼り付けるのに問題があります。2枚のシート1と2があります。シート1にボタンを配置します。テキストフィールドExcelファイルをフェッチするブラウザがあり、そのExcelファイルをシートに貼り付けたいです。 2.2。

現時点では、ファイルを作成して選択することはできますが、情報をシート2に貼り付けることができません。誰か助けてもらえますか。

Dim fileStr As String
Sub GetOpenFile()

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

End Sub
Sub Button3_Click()

Workbooks.Open fileStr

End Sub
4

1 に答える 1

2

これを試して：

Sub Button3_Click()
Dim fileStr As String, wbk1 as workbook, wbk2 as workbook

fileStr = Application.GetOpenFilename()

set wbk1=activeworkbook
set wbk2=Workbooks.Open (fileStr)

wbk2.sheets(1).cells.copy wbk1.Worksheets("Sheet2").cells(1,1)

End Sub
于 2012-10-09T21:43:48.443 に答える