| |
▼あいんすと さん：
おはようございます。
>馬鹿な質問かも知れませんが、
>エクセルで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
こんなコードにしなくても「ファイル」----「開く」でも
読み込めましたよ
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
