VBAで質問です

質問

下記のVBAを作成しました。

ダイアログからｔｘｔファイルをエクセルで開きます。
ここで作成されたシートを別のブックの「ログ」というシートに貼り付けたいのです。
宜しくお願いします。

・ｔｘｔファイルは日付が入る為、毎回違う名前になります。
・

Private Sub CommandButton4_Click()
Dim fname As String
fname = Application.GetOpenFilename( _
filefilter:="Excelファイル,*.xls,すべてのファイル,*.*")
If fname = "false" Then Exit Sub
Workbooks.OpenText Filename:=fname

回答No.1

noname#184106

こんにちわ
こちらでいかがでしょうか。

Sub Test()
Dim St As Object
Dim FName As String

Set St = ActiveSheet
FName = Application.GetOpenFilename(filefilter:="すべてのファイル,*.*")
If FName = "false" Then Exit Sub
Workbooks.OpenText Filename:=FName

ActiveSheet.Move After:=St
ActiveSheet.Name = "ログ"
End Sub

うまくいくといいですね。