Excel VBA質問箱 IV

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

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


8139 / 13644 ツリー ←次へ | 前へ→

【34964】カンマ区切りにしたい 初心者 06/2/17(金) 7:53 発言[未読]
【34968】Re:カンマ区切りにしたい neptune 06/2/17(金) 10:18 回答[未読]

【34964】カンマ区切りにしたい
発言  初心者  - 06/2/17(金) 7:53 -

引用なし
パスワード
   下記にカンマ区切りを入れたいのですが
うまくいかずに困っています・・
決まったbookの”TEST”シートに何枚かのexcelかCSVファイルを
次々下へ読み込みたいのですが・・
今現状下記では区切りが出来ずにいます

Dim myFile As String, i As Long
Dim ss As String

ss = "数枚あるときは続けてシートを読み込んでください"
Sheets("TEST").Select
Range("A1").Select
 myFile = Application.GetOpenFilename("すべてのファイル,*.exl;*.CSV")
 If myFile = "False" Then Exit Sub
 If MsgBox(ss, vbOKCancel, myFile) = vbOK Then
   Read myFile
 End If
End Sub

ご伝授どうかお願いします・・・

【34968】Re:カンマ区切りにしたい
回答  neptune  - 06/2/17(金) 10:18 -

引用なし
パスワード
   >Read myFile
の部分が分からないのですか?

open ステートメントが利用できます。
例えばこんな感じ

'ファイルを開く
open ファイルのパス for input as #ファイル番号
do until eof(ファイル番号)
'1行読み込み
line input #ファイル番号 ,文字列変数
文字列配列変数()=split(文字列変数,",")
'貼り付ける場所を指定する(A1から貼り付けるとする)
range(cells(1,1),ubound(文字列配列変数()).value=文字列配列変数()
loop

close #ファイル番号

恐らく過去ログを探せば山のようにサンプルがあると思います。

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