ブックのシート2で文書を開く

Question

ボタンに割り当てられてクリックされたコードは、私のために.datファイルを開きます。

ただし、これは別のブックにファイルを開き、同じブックのSheet2に表示されるように開くことができます。

私のコードは次のとおりです。

Sub Open_Workbook() 

    Dim my_FileName As Variant 

    my_FileName = Application.GetOpenFilename 

    If my_FileName <> False Then 
     Workbooks.Open Filename:=my_FileName 
    End If 

End Sub 

Answer 1

あなたが直接それを行うことはできませんが、これはそれを開き、シート2に、すべてのデータをコピーして

Sub Open_Workbook() 

    Dim my_FileName As Variant 

    my_FileName = Application.GetOpenFilename 

    If my_FileName <> False Then 
     Workbooks.Open Filename:=my_FileName 
     activeworkbook.sheets(1).usedrange.copy thisworkbook.sheets(2).range("a1") 
     activeworkbook.close false 
    End If 

End Sub 

を保存せずにDATファイルを閉じます