Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

15312 / 76738

←次へ　｜　前へ→


	【66905】テキストボックスに入力したファイルの読み込み

りょうま - 10/10/16(土) 13:36 -


	引用なし

	パスワード

シート内に配置したテキストボックスに入力した名前のファイルを
読み込むマクロを作りたいと考えています。
myTxtFileの定義の行で直接ファイル名を""内に記入すれば、
読み込めるのですが、
一旦テキストボックスを読みにいくとファイルがありませんと
エラーが出ます。
パス名などを試行錯誤したのですが、解決できませんでした。
（対象ファイルはエクセルファイルと同フォルダにあります）
助けて頂けないでしょうか。

Private Sub CommandButton1_Click()

Dim myTxtFile As String
Dim myBuf(6) As String
Dim i As Integer, j As Integer

Application.ScreenUpdating = False

myTxtFile = ActiveWorkbook.Path & "\TextBox1.Text"

Worksheets("Sheet1").Activate

Open myTxtFile For Input As #1

Do Until EOF(1)

　　Input #1, myBuf(1), myBuf(2), myBuf(3), myBuf(4), myBuf(5)

　　i = i + 1
　　
　　For j = 1 To 5
　　
　　　　Cells(i, j) = myBuf(j)
　　　　
　　Next j
　　
Loop

Close #1
End Sub

Private Sub TextBox1_Change()

End Sub

0 hits

▼

【66905】テキストボックスに入力したファイルの読み込み りょうま 10/10/16(土) 13:36

≪