标题: 请高手帮助修改一下代码 [打印本页] 作者: OKK 时间: 2008-12-2 19:48 标题: 请高手帮助修改一下代码 [attach]33625[/attach]
谢谢作者: pureshadow 时间: 2008-12-2 22:10
Sub 按钮1_单击()
ar = Range("a1:f" & Range("A65536").End(xlUp).Row)
For x = 1 To UBound(ar, 1)
rr = ""
For y = 1 To UBound(ar, 2)
If ar(x, y) <> "" Then rr = rr & Format(ar(x, y), "00") & " "
Next
st = st & rr & vbCrLf
Next
fname = Application.GetSaveAsFilename("导出号码.txt")
If fname <> False Then
Open fname For Output As #1
Print #1, st
Close #1
End If