Lernu Esperanton! 理論的に作られた国際共通語エスペラントを学びませんか

Excel VBA■読み込むファイルを指定するダイアログ・ボックスを開く

カテゴリ:PC

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

ちゃんとインデントをつけていたのに、無視されましたね。
タグでタブをつけてもだめでした。
見にくいので自分でインデントをつけてご覧ください。

■書き換えました。→ひとつをタブひとつに置き換えてください。

コメント



認証コード8253

コメントは管理者の承認後に表示されます。

powered by Quick Homepage Maker 4.91
based on PukiWiki 1.4.7 License is GPL. QHM

最新の更新 RSS  Valid XHTML 1.0 Transitional