2024年2月10日发(作者：)

Dim fso

Dim txtfile

Dim a

'a=("FileName").Read

Set fso = CreateObject("stemobject")

If ists("E:") Then

'MsgBox "文件存在"

'If ists("D:Export&Import"&CStr(a)&".txt") Then

Set txtfile = xtFile("E:")

MsgBox "开始读取"

("Var_1").Write ne

("Var_2").Write ne

("Var_3").Write ne

("Var_4").Write ne

("Var_5").Write ne

("Var_6").Write ne

("Var_7").Write ne

("Var_8").Write ne

("Var_9").Write ne

("Var_10").Write ne

("Var_11").Write ne

("Var_12").Write ne

("Var_13").Write ne

("Var_14").Write ne

("Var_15").Write ne

("Var_16").Write ne

("Var_17").Write ne

("Var_18").Write ne

("Var_19").Write ne

("Var_20").Write ne

MsgBox "导入数据成功/Import Successful"

Else

MsgBox "文件不存在/File is not existing"

End If

最终效果图