请学电脑的帮助一下．

冰火花UID: 101908

向Excel里面导入２０００多个.txt文件的信息（不是全部，是特定信息）．
想用下面那个VBA读Unicode，但是兰色的那句MsgBox出来的每次都是乱码怎么办．
我一直在调那两句红色的，但是怎么也调不好．
有人知道怎么弄么？有人说txt文件本身有问题，读不出来，可能么？
还有，如果我加 i = 1 To 2000 Step 1
怎么写才达到数据依次放到 cell(Hi)的效果呢，
就是1.txt的数据放cell(H1), 2.txt的放cell(H2)，这句不会写．
谢谢帮忙！


－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub OpenFile()
'
'

    Range("H2").Select
   
    Dim text As String
    Dim filename As String
   
    text = Range("F2").text
    filename = "\\Bejurbansci02\users\HWang\resInfo\data\" + text + ".txt"
    MsgBox text
   
    Dim filesys, filetxt
    Dim content As String


    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Set filesys = CreateObject("Scripting.FileSystemObject")
    Set filetxt = filesys.OpenTextFile(filename, ForReading, False, 0)

    Do While Not filetxt.AtEndOfStream
   
    contents = StrConv(filetxt.ReadLine, vbFromUnicode, lcid)
   
    MsgBox contents

   
    Loop
   
    filetxt.Close

  ''''''''''
  ''''''''''
　 ActiveWorkbook.Save

End Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

genie05UID: 30358

看不懂 .不过帮花花顶...

今天第一次打算进来的时候死机...分特.

gdhdannyUID: 125843

no idea. sorry

is this VB script or Excel?

why do u want to read a whole .txt file into one cell instead of a column? please note that all the format in .txt will be eliminated once imported into a cell.

DriverEntryUID: 143979

filename = "\\Bejurbansci02\users\HWang\resInfo\data\" + text + ".txt"

这句里的路径也许有问题，WINDOWS下面一般都是路径前面有个盘符的，比如C, D之类的吧？ 或者可以用”.“ 来表示当前目录不过我也不确定。可以先写个小程序专门打开一个TXT文件试试。

另外的问题我就不了解了。

DriverEntryUID: 143979

另外：还可以自己先想办法手工做个宏，然后再把 宏的代码改改，改成完全符合自己的需要。

冰火花UID: 101908

谢谢,谢谢.问题已经搞定了,终于弄好了.
看来根本不能用上面的程序,基本从新来的.

To: Danny
是VB script,是想一句一句读整个文件,遇到所需要项的信息就写到Excel的相关格里.

To: DriverEntry
filename = "\\Bejurbansci02\users\HWang\resInfo\data\" + text + ".txt"
这句应该没错,路径在服务器上,其实开始录了个宏,但后来觉得基本还都是写的.

谢谢大家.