Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8153 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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(ファイル番号)
'１行読み込み
line input #ファイル番号 ,文字列変数
文字列配列変数()=split（文字列変数,",")
'貼り付ける場所を指定する(A1から貼り付けるとする）
range(cells(1,1),ubound(文字列配列変数()).value=文字列配列変数()
loop

close #ファイル番号

恐らく過去ログを探せば山のようにサンプルがあると思います。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8153 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free