Excel VBA質問箱 IV

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

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


2611 / 13646 ツリー ←次へ | 前へ→

【66905】テキストボックスに入力したファイルの読み込み りょうま 10/10/16(土) 13:36 質問[未読]
【66906】Re:テキストボックスに入力したファイルの... かみちゃん 10/10/16(土) 13:48 発言[未読]
【66917】Re:テキストボックスに入力したファイルの... りょうま 10/10/16(土) 17:30 お礼[未読]

【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

【66906】Re:テキストボックスに入力したファイル...
発言  かみちゃん E-MAIL  - 10/10/16(土) 13:48 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>助けて頂けないでしょうか。

しっかり見ていませんが、

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

は、

myTxtFile = ActiveWorkbook.Path & "\" & TextBox1.Text
ではないでしょうか?

MsgBox ActiveWorkbook.Path & "\TextBox1.Text"
MsgBox ActiveWorkbook.Path & "\" & TextBox1.Text
としてみて、その違いを確認してみてください。

また、Dir関数等でファイルの存在チェックをしたほうがいいと思います。

【66917】Re:テキストボックスに入力したファイル...
お礼  りょうま  - 10/10/16(土) 17:30 -

引用なし
パスワード
   かみちゃん 様

無事解決できました。ありがとうございます!

▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>助けて頂けないでしょうか。
>
>しっかり見ていませんが、
>
>myTxtFile = ActiveWorkbook.Path & "\TextBox1.Text"
>
>は、
>
>myTxtFile = ActiveWorkbook.Path & "\" & TextBox1.Text
>ではないでしょうか?
>
>MsgBox ActiveWorkbook.Path & "\TextBox1.Text"
>MsgBox ActiveWorkbook.Path & "\" & TextBox1.Text
>としてみて、その違いを確認してみてください。
>
>また、Dir関数等でファイルの存在チェックをしたほうがいいと思います。

2611 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free