VBAでユーザーフォーム上に参照したファイルを開きたいのですが…
EXCEL2003 SP3での質問です。
ユーザーフォームをVBAで作成中です。
主な機能は、対象月をコンボBOXで選択させた上で、
データ元とインプット先のファイルをテキストBOXに参照し、
実行ボタンクリックでデータ元からインプット先の該当月シートに
データをコピーするといった感じです。
(データ元の該当シート内データを全てコピー&ペースト)
取り込み以降の処理はVBAを使用せずに作成しようと考えています。
質問は、取込みたいファイルの参照後の「ファイルを開いてデータをコピーする」処理がうまくいかず、
どのようにしたらよいか教えて頂けますでしょうか。
現在、以下のように記述していますが、
CommandButton3_Click()の部分の処理が分からずファイルが開けません。ご教授ください。
Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "テキスト", "*.csv;*.txt", 1
If .Show = 0 Then Exit Sub
Me.TextBox1.Text = .SelectedItems(1)
End With
End Sub
Private Sub CommandButton2_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "テキスト", "*.csv;*.txt", 1
If .Show = 0 Then Exit Sub
Me.TextBox2.Text = .SelectedItems(1)
End With
End Sub
Private Sub CommandButton3_Click()
Dim file_name As String
If TextBox1.Text = "" Then
MsgBox "ファイルが指定されていません", vbInformation
ElseIf TextBox1.Text = "" Then
file_name = TextBox1.Text = ""
Shell "Workbooks.OpenText TextBox1.Value "
End If
End Sub
Private Sub CommandButton4_Click()
yesno = MsgBox("保存後、ファイルを閉じます。終了していいですか?", vbYesNo + vbQuestion, "Reportの終了")
If yesno = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
End If
End Sub
お礼
お礼が遅れて申し訳ございません。 早速試したところ、完璧にできました!本当にありがとうございます。本当に勉強になりました。