新人求助用VBA读txt文件到excel中的问题
有一个txt文件,里面的内容如下:
a_b = {1, haha, 192.168.1.1, 28 };
c_d = {2, 1, 1, "sdfa" };
类似上面的数据有很多条。然后这个txt文件放在C:\DATA\0107\gx_ars_cq-ars-a\get_sb_fs_1目录下。
现在我想读取这个目录下的这个txt文件到excel中,我写了一个按钮,然后点击的时候用户可以选择文件,因为类似这样的txt文件有很多。
代码如下:
Private Sub ComButOpFile_Click()xfile = Application.GetOpenFilename("Text File (*.txt),*.txt")If xfile = False Then Exit SubOpen xfile For Input As #1Do While Not EOF(1)Line Input #1, xliner = r + 1Cells(r, 1) = xlineLoopClose #1End Sub