希望大虾赐教一下小弟：怎么用宏去修改TXT文本中指定行数中的指定字段呢？谢谢！

lxyspy

大大现身啊

lxyspy

大虾啊，大虾啊

赵国辉

下班，占个位，回来帮你弄

1. Sub cht()
   
2.     Dim objFSO As Object, objFile As Objectg
   
3.     Dim txtpath As String, cr As Long, ct As String, d As String, allt
   
4.     txtpath = ThisWorkbook.Path & "\text.txt"   '该为你自己的路径
   
5.     Set objFSO = CreateObject("Scripting.FileSystemObject")
   
6.     Set objFile = objFSO.OpenTextFile(txtpath, 1)
   
7.     d = objFile.ReadAll
   
8.     allt = Split(d, vbCrLf, -1, 1)
   
9.     objFile.Close
   
10.     cr = InputBox("输入需要更改的文本行数")
    
11.     ct = InputBox("输入需要更改的文本内容")
    
12.     allt(cr - 1) = ct
    
13.     Set objFile = objFSO.createtextfile(txtpath, 1)
    
14.     d = Join(allt, vbCrLf)
    
15.     objFile.write d
    
16.     objFile.Close
    
17.     Set objFile = Nothing: Set objFSO = Nothing
    
18. End Sub

复制代码

[ 本帖最后由 赵国辉 于 2009-11-2 12:44 编辑 ]

lxyspy

谢谢LS的大虾，小弟感激不尽。非常感谢。

lxyspy

下班，占个位，回来帮你弄
复制内容到剪贴板代码:
Sub cht()
    Dim objFSO As Object, objFile As Objectg
    Dim txtpath As String, cr As Long, ct As String, d As String, allt
    txtpath = ThisWorkbook.Path & "\text.txt"   '该为你自己的路径
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(txtpath, 1)
    d = objFile.ReadAll
    allt = Split(d, vbCrLf, -1, 1)
    objFile.Close
    cr = InputBox("输入需要更改的文本行数")
    ct = InputBox("输入需要更改的文本内容")
    allt(cr - 1) = ct
    Set objFile = objFSO.createtextfile(txtpath, 1)
    d = Join(allt, vbCrLf)
    objFile.write d
    objFile.Close
    Set objFile = Nothing: Set objFSO = Nothing
End Sub
大虾，你的算法是把所有的文本内容读到一个数组里面，更改相应的数组项之后再把该数组项写回TXT里面，我也想过这种办法，但是如果我想修改指定行数的指定字段的话（不是整行全部修改）可能就必须要定义三个
数组了，还有没有什么好办法呢？非常感谢您的热心帮助。

赵国辉

再把指定行split成一个数组修改就行了，你自己改改就行了，很easy了
我看好你哦

赵国辉

我的头像呢？太帅被屏蔽了？

lxyspy

本来我想看看有没有什么更简洁的办法，不过看来也只有这种办法了，非常感谢你的帮助！你确实因为太帅而被屏蔽掉了头像哦，哈哈哈

赵国辉

如果加上列标题和新增一个id列，可以用ado更新

lxyspy

大虾，还有个关于SQL的问题，不知道您了解吗？
我想通过EXCEL宏查询ACCESS中的数据，但是想同时把几个人的信息给查询出来，那where后面的语句该怎样写呢？
例句如下：strSQL = "Select " & selectkey & " from DailyWork  where User_ID='" & selectname & "'"
就是User_ID 后面会有很多人的的ID，想一起给查出来，具体该怎样写语句呢？谢谢大虾！！