前提・実現したいこと
テキストエディタを部分的に読み込ませてエクセルに出力するやり方を教えて頂きたいです。
例
{*/計算1*/
123456, /*数値
12.3, /*数値
356751, /*数値
45321, /*数値
}
{*/計算2*/
〃
〃
上記のような計算1から計算10まであるようなテキストエディタの内容から数値の部分だけ取り出してエクセルに出力する方法が実現できずに悩んでいます
ちなみに計算1が初めの行ではなく途中部分です
試したこと
ここに問題に対して試したこと
Pryvate Sub push1()
Dim Name As Variant
Dim buf As string, C As Long
Name = Application.GetOpenFilename("txtファイル,*.txt")
Open Name For Input As #1
Do until EOF(1)
Line Input #1, buf
C = C+1
Worksheets("sheets1")
End Sub
テキストエディタの全文は読み込ませることができたのですがここから部分的に読み込ませるやり方が分かりません。
計算1から10まで全部の数値だけを読み込ませて出力したいです。
先頭と終わりの文字を検索して読み込むのかなと思ったのですが、vba始めたばかりで色々試したものの出来ませんでした。 どなたか教えて頂けると助かります。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/06/28 05:24
2018/06/28 05:31
2018/06/28 06:40