Excel VBA質問箱 IV

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

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


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

【34296】xmlファイルの読み取り あいんすと 06/1/30(月) 21:34 質問[未読]
【34308】Re:xmlファイルの読み取り ichinose 06/1/31(火) 7:46 発言[未読]
【34340】Re:xmlファイルの読み取り あいんすと 06/1/31(火) 22:09 お礼[未読]

【34296】xmlファイルの読み取り
質問  あいんすと  - 06/1/30(月) 21:34 -

引用なし
パスワード
   馬鹿な質問かも知れませんが、
エクセルでXMLファイルをテキストで読み取ろうとしたのですが、
うまくいきません。拡張子を.TXTに替えて読み取ろうとしても
駄目でした。そもそも、この手のファイルを読み取ることは
出来ないのでしょうか?
ちなみにExcel2000を使用しています

【34308】Re:xmlファイルの読み取り
発言  ichinose  - 06/1/31(火) 7:46 -

引用なし
パスワード
   ▼あいんすと さん:
おはようございます。

>馬鹿な質問かも知れませんが、
>エクセルでXMLファイルをテキストで読み取ろうとしたのですが、
>うまくいきません。拡張子を.TXTに替えて読み取ろうとしても
>駄目でした。そもそも、この手のファイルを読み取ることは

手動操作で開こうとした結果、読み込めなかったということですか?
それともVBAで読み込めないということですか?

「うまくいきません」を具体的に記述する癖をつけましょう!!

テキストファイルですから、可能なはずですよ!!
Sub test()
  Dim flnm As Variant
  Dim fno As Long
  Dim idx As Long
  Dim dat1 As String
  flnm = Application.GetOpenFilename("*.xml,*.xml")
  If TypeName(flnm) <> "Boolean" Then
    fno = FreeFile()
    Open flnm For Input As #fno
    Do Until EOF(fno)
     Line Input #fno, dat1
     Cells(idx + 1, 1).Value = dat1
     idx = idx + 1
     Loop
    Close #fno
    End If
End Sub

こんなコードにしなくても「ファイル」----「開く」でも
読み込めましたよ

【34340】Re:xmlファイルの読み取り
お礼  あいんすと  - 06/1/31(火) 22:09 -

引用なし
パスワード
   お礼が遅れましたが、
Input関数で読み込むことが出来ました。
ただ、このままでは一つのセルに入れてしまうので、
Split関数でChr(10)で区切る必要がありました。

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