Excel VBA■読み込むファイルを指定するダイアログ・ボックスを開く
Excel VBA■読み込むファイルを指定するダイアログ・ボックスを開く
「開く」を押すとダイアログ・ボックスが開きますが、
それをExcelで実現するコマンドです。
let filename = Application.GetOpenFilename()
filenameは変数です。変更可。
右項は小文字だけでかまいません。
Editorが勝手に最初の文字を大文字に変えます。
もし変わらなければ、ミスタイプをしているということです。
----------------------------
sample program
----------------------------
Sub データ抜き取り()
' 2006/3/9 hariym
Let 問数A = Val(InputBox("問数Aは"))
Let 問数B = Val(InputBox("小問数Bは"))
Let 一人分の行数 = 大問数A + 小問数B + 1
Let 開くファイル = Application.GetOpenFilename()
Open 開くファイル For Input As #1
Do
→For 繰り返し = 1 To 一人分の行数
→Input #1, 読取後破棄
→Input #1, 番号
→If 繰り返し = 1 Then
→→Let 縦 = 縦 + 1
→→Let 横 = 1
→→Let Cells(縦, 横) = データ1
→End If
→Input #1, 読取後破棄
→Input #1, 読取後破棄
→Input #1, 読取後破棄
→Input #1, データ2
→→Let 横 = 横 + 1
→→Let Cells(縦, 横) = データ2
→Input #1, 読取後破棄
→Next
Loop Until EOF(1)
Close
End Sub
ちゃんとインデントをつけていたのに、無視されましたね。
タグでタブをつけてもだめでした。
見にくいので自分でインデントをつけてご覧ください。
■書き換えました。→ひとつをタブひとつに置き換えてください。