赞
踩
预览
1.新建变量,如下图:
变量
2.编写程序,如下图:
Sub VBFunction_1()
Dim fo
Dim path
Dim mode
Dim Tab2
Dim Tab1
Const NEU=0
mode=8
If SmartTags("文件类型")=0 Then
path="C:Storage Card SDdata.txt"
Tab2=vbTab
Tab1=vbTab
Else
path="C:Storage Card SDdata.csv"
Tab2=";"
Tab1=""
End If
On Error Resume Next
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。