求VB代码，读取excel文件里面符合条件的记录到txt

Question

我要将excel工作簿
F:\抗压强度\2008年.xls 里面的名为“1”的工作表里的数据一行行的读取到该目录下的.txt文件里
在满足条件C列单元格里面含有“狮子山”的条件下读取
请问VB代码是什么，控件只有一个command1吧

Answer 1

Private Sub Command1_Click()
Dim S As String, FileName As String, SaveFileName As String
Dim i As Integer, j As Integer, Fn As Integer
Dim xlApp
Dim xlBook
Dim xlSheet
FileName = "F:\抗压强度\2008年.xls" '源文件，请根据实际修改
i = InStrRev(FileName, "\")
SaveFileName = Left(FileName, i) & "1.txt" '输出的文本文件，请根据实际修改
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False
Set xlBook = xlApp.Workbooks.open(FileName)
xlApp.Visible = False '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("1") '请根据实际修改
Fn = FreeFile
Open SaveFileName For Output As Fn
For i = 1 To xlSheet.UsedRange.Rows.Count
S = xlSheet.Cells(i, 3)
If InStr(S, "狮子山") > 0 Then
S = ""
For j = 1 To xlSheet.UsedRange.Columns.Count
S = S & xlSheet.Cells(i, j) & vbTab '用Vbtab分隔，请根据实际修改
Next
Print #Fn, S
End If
Next
Close #Fn
xlBook.Close (True)
xlApp.quit
Set xlApp = Nothing
MsgBox "数据提取成功！", vbInformation, "恭喜"
End Sub

Answer 2

hi我。