yang686526

关于excel输出至txt文件产生的问题！
www.dimcax.com
关于excel输出至txt文件产生的问题！
最近用vba编了一个程序，来实现将excel中的数据导出至txt文件中。程序如下：
sub macro1()
fno = freefile
open "c:\file.txt" for output as #fno
print #fno, "("; "num"; " "; "itema"; " "; "itemb"; " "; "itemc"; " "; "itemd"; ")"
dim n as integer
n = 6
do until cells(n, 2) = ""
print #fno, "("; cells(n, 2).value; cells(n, 3).value; " "; cells(n, 4).value; cells(n, 14).value; " "; cells(n, 44).value; ")"
n = n + 1
loop
close #fno
' macro1 macro
' 宏由 light 录制，时间:
将宏改为如下即可：
sub macro1()
fno = freefile
open "c:\file.txt" for output as #fno
print #fno, "("; "num"; " "; "itema"; " "; "itemb"; " "; "itemc"; " "; "itemd"; ")"
dim n as integer
dim f3 as string
n = 6
do until cells(n, 2) = ""
f3 = ltrim(str(abs(cells(n, 4).value)))
if cells(n, 4).value > 0# and cells(n, 4).value < 1# then f3 = "0" + f3
if cells(n, 4).value > -1# and cells(n, 4).value < 0# then f3 = "-0" + f3
print #fno, "("; cells(n, 2).value; cells(n, 3).value; " "; f3; cells(n, 14).value; " "; cells(n, 44).value; ")"
n = n + 1
loop
close #fno
' macro1 macro
' 宏由 light 录制，时间: