Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9206 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【28726】エクセル97でのファイル読み込み BOON 05/9/13(火) 17:38 質問[未読]
【28727】Re:エクセル97でのファイル読み込み MARBIN 05/9/13(火) 17:45 回答[未読]
【28729】Re:エクセル97でのファイル読み込み BOON 05/9/13(火) 17:57 質問[未読]
【28730】Re:エクセル97でのファイル読み込み MARBIN 05/9/13(火) 18:06 発言[未読]
【28731】Re:エクセル97でのファイル読み込み BOON 05/9/13(火) 18:35 質問[未読]
【28733】Re:エクセル97でのファイル読み込み りん 05/9/13(火) 18:45 発言[未読]
【28734】Re:エクセル97でのファイル読み込み BOON 05/9/13(火) 19:05 質問[未読]
【28738】Re:エクセル97でのファイル読み込み りん 05/9/13(火) 21:05 発言[未読]
【28740】Re:エクセル97でのファイル読み込み りん 05/9/13(火) 21:16 発言[未読]
【28765】Re:エクセル97でのファイル読み込み BOON 05/9/14(水) 10:38 お礼[未読]
【28735】Re:エクセル97でのファイル読み込み Hirofumi 05/9/13(火) 19:15 回答[未読]
【28766】Re:エクセル97でのファイル読み込み BOON 05/9/14(水) 10:41 お礼[未読]
【28726】エクセル97でのファイル読み込み
質問  BOON  - 05/9/13(火) 17:38 -
引用なし
パスワード
   こんにちは。

オフィス97のエクセルでマクロを組みたいと思ってます。
あるテキストファイルをエクセルファイルに読み込みたいのです。
（テキストファイルを開くのではなく、読み込みたいのです。）
マクロの記録で確認しようと思ったのですが
エクセル2000では外部データの取り込みにテキストファイルのインポート機能が
ありますが、エクセル97には見当たらず困っております。
どのようにしたらよいのでしょうか？
VBAで書くとしたらどのように記載したらいいのでしょうか？
【28727】Re:エクセル97でのファイル読み込み
回答  MARBIN  - 05/9/13(火) 17:45 -
引用なし
パスワード
   Win2000、XLS97という環境で下記のコードを走らせたら
テキストファイルの内容が取得できました。

Sub test()
Dim buf, msg As String
　Open CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "test.txt" _
　For Input As #1
　　Do Until EOF(1)
　　 Line Input #1, buf
　　 msg = msg & buf & vbCrLf
　　Loop
　Close #1
　MsgBox msg
End Sub
【28729】Re:エクセル97でのファイル読み込み
質問  BOON  - 05/9/13(火) 17:57 -
引用なし
パスワード
   ▼MARBIN さん：
お返事有り難うございますm(__)m。
読込んだテキストファイルはデスクトップ上にあるものなのでしょうか？
すみません。
宜しくお願いします。
【28730】Re:エクセル97でのファイル読み込み
発言  MARBIN  - 05/9/13(火) 18:06 -
引用なし
パスワード
   フルパス指定でこんな感じでもＯＫです。

Open "C:\Documents and Settings\MARBIN\デスクトップ\test.txt" _
　For Input As #1
【28731】Re:エクセル97でのファイル読み込み
質問  BOON  - 05/9/13(火) 18:35 -
引用なし
パスワード
   ▼MARBIN さん：
お返事有り難うございますｍ（＿＿）ｍ。
ファイルのオープンできました！
更に質問なのですが、
先程教えて頂いたソースだと1行ずつ読込んでる感じですよね？
テキストデータに
「1,東京都,品川区,○×△,･･･」みたいな感じで何行も
データがはいっているのです。
その「,」区切りでセルに表示させたいのです(T_T)。
先程の教えて頂いたソースに自分なりに考えていれてみたら
すべてのセルに同じデータがたくさんはいってしまって(>_<)。
何度もすみません。
御願い致します。
【28733】Re:エクセル97でのファイル読み込み
発言  りん E-MAIL  - 05/9/13(火) 18:45 -
引用なし
パスワード
   BOON さん、こんばんわ。

>テキストデータに
>「1,東京都,品川区,○×△,･･･」みたいな感じで何行も
>データがはいっているのです。
>その「,」区切りでセルに表示させたいのです(T_T)。
Workbooks.OpenTextメソッドではだめなんですか？
OpenTextメソッド
テキスト ファイルを分析して読み込みます。テキスト ファイルを 1 枚のシートとして、それを含む新しいブックを開きます。
使用例
Workbooks.OpenText filename:="DATA.csv",dataType:=xlDelimited, Comma:=True
【28734】Re:エクセル97でのファイル読み込み
質問  BOON  - 05/9/13(火) 19:05 -
引用なし
パスワード
   ▼りん さん：

お返事有り難うございますm(__)m。
>Workbooks.OpenText filename:="DATA.csv",dataType:=xlDelimited, Comma:=True
を実行すると、マクロを書いたエクセルと読込んだテキストファイルが
二つウィンドウが開かれてしまって･･･。
読込んだテキストファイルにいろいろ制限をかけたいのです。
(入力規則や文字数など制限や、選択できない列など）

OpenTextでもエクセル上に読込むことができるでしょうか？
【28735】Re:エクセル97でのファイル読み込み
回答  Hirofumi  - 05/9/13(火) 19:15 -
引用なし
パスワード
   [17643] Re:CSVファイルのEXCEL展開（難易度高）　
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=17643;id=excel

これ、私が、Excel97で使っている、CSVの読み込みコードです

尚、以下の部分の変更で読み込むシート、シートの行、列を変更できます

Public Sub TextReadCsv()

　　Dim i As Long
　　Dim vntFileName As Variant
　　
　　If Not GetReadFile(vntFileName, ThisWorkbook.Path) Then
　　　　Exit Sub
　　End If

　　'第２引数　読み込むシート
　　'第２引数　読み込む先頭行行
　　'第２引数　読み込む先頭列
　　CSVRead vntFileName, ActiveSheet, 1, 1, True, ","
　　
End Sub
【28738】Re:エクセル97でのファイル読み込み
発言  りん E-MAIL  - 05/9/13(火) 21:05 -
引用なし
パスワード
   BOON さん、こんばんわ

>お返事有り難うございますm(__)m。
>>Workbooks.OpenText filename:="DATA.csv",dataType:=xlDelimited, Comma:=True
>を実行すると、マクロを書いたエクセルと読込んだテキストファイルが
>二つウィンドウが開かれてしまって･･･。
>読込んだテキストファイルにいろいろ制限をかけたいのです。
>(入力規則や文字数など制限や、選択できない列など）
>
>OpenTextでもエクセル上に読込むことができるでしょうか？
開かれたウィンドウの内容をマクロのあるシートにコピーして貼り付けてはいかがでしょうか？
【28740】Re:エクセル97でのファイル読み込み
発言  りん E-MAIL  - 05/9/13(火) 21:16 -
引用なし
パスワード
   BOON さん、こんばんわ

>OpenTextでもエクセル上に読込むことができるでしょうか？
WorkbooksでOpenしているので、Workbookが追加されるので直接は無理です。
>開かれたウィンドウの内容をマクロのあるシートにコピーして貼り付けてはいかがでしょうか？

元のコードに戻りますが、TextToColumnも使える気がします。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=26035;id=excel
【28765】Re:エクセル97でのファイル読み込み
お礼  BOON  - 05/9/14(水) 10:38 -
引用なし
パスワード
   ▼りん さん：
おはようございます。
教えて頂いたソースを真似して試してみたらできました！
とても参考になりました。
>WorkbooksでOpenしているので、Workbookが追加されるので直接は無理です。
よく考えたらそうですよね(>_<)。
有り難うございますｍ（＿＿）ｍ。
【28766】Re:エクセル97でのファイル読み込み
お礼  BOON  - 05/9/14(水) 10:41 -
引用なし
パスワード
   ▼Hirofumi さん：

おはようございます。
お返事有り難うございます。

教えて頂いた
>[17643] Re:CSVファイルのEXCEL展開（難易度高）　
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=17643;id=excel
とても参考になりました。
真似をして試してみたら、csvファイル開けました！

2000と違い、97は制御？が必要なのですね･･･。
一旦、2000で作成したのですが97対応に変更になり少しずつ
解決しようとしているのですが、しょっぱなからつまずいていました(>_<)。
助かりました！！
有り難うございますｍ（＿＿）ｍ。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9206 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free