QQ群成员获取,一个列子,对喜欢的可以查看思路 Sub WriteFile() '写入文件 Dim i1 As Integer, i2 As Integer Dim qqNum As String, j As Integer '记录有效QQ号 Dim i As Integer fileNum = FreeFile Open "c:\qqRec.txt" For Append As #fileNum Write #fileNum, vbCrLf & QQTitle