复制Excel某列数据到文本文件中

Y)?0n(p?w2Mu)S0 

"f wx(D&a&|0Set bjexcel = CreateObject("excel.application")51Testing软件测试网UJ.iFp
objexcel.Visible = True
0o,rxX3]b0`v0Set bjwork = objexcel.Workbooks.Open("d:\1.xls")
-f"aS.C%_4I&Mfh0Set bjsheet = objwork.worksheets(1)
.wQa/fh0'行
Dh2^a,M \(KVm;v0i=151Testing软件测试网D5Fh*v;k$|u
'列
3I~e$@6X!F0n=3
(_/` fhYv/V'G}^Y0Do While True51Testing软件测试网D}mOe
    strValue = objsheet.Cells(i,n)
v?M:Lv0    If strValue = "" Then51Testing软件测试网5m-oCoMxu4jt#P
        Exit Do
qc9u8n%E0    End If

Cp`9R)~1D ?d0    strText = strText & strValue & vbCrLf51Testing软件测试网iBc/n,`1j
    i = i + 1
!o ?`RN0Loop

.ex!h3_Z7fdt"f0objExcel.Quit

&_6c*L2GP3srM0Set bjFSO = CreateObject("Scripting.FileSystemObject")51Testing软件测试网BM{XEt
Set bjFile = objFSO.CreateTextFile("d:\ExcelData.txt")

"xB7UE:n"G7|iB0objFile.Write strText
%N$[zFYE2I4td?Z0objFile.Close51Testing软件测试网%}U,?@R