VBA-将格式化数据从文本文件复制到Excel工作表(单元格地址)

时间:2015-02-18 06:31:20

标签: vba excel-vba excel-2007 excel

我有文本文件,其中包含以下格式的数据

"$B$6|9020541.78113024"
"$C$6|91873471.2672928"
"$D$6|596376192.52119"
"$E$6|697270205.569613"

分隔符是" |" 分隔符前的前半部分是单元格地址(说B6),后半部分是必须通过工作簿复制到特定工作表的值(Say工作表1)

我已经完成了加载文本文件并通过循环读取内容但无法进展。

Open SplitTxtFile For Input As #1

Do Until EOF(1)
    Line Input #1, FileLine
    Dim SplitFileLine As Variant
    Dim newFileLine As String

    newFileLine = Replace(FileLine, Chr(34), "")
    SplitFileLine = Split(newFileLine, "|") ' This split doesnt work

'The data to be split and copy the value in appropriate cell address in the worksheet(ws1

Loop

Close #1

请帮助进一步发展。忽略已通过读取目录完成的文本文件读取部分。

感谢。

0 个答案:

没有答案