求解windowsCE下如何运行vb脚本程序,本人写的如下程序只能在windows操作系统下运行,本人在西门子触摸屏的winCE系统下运行会跳出activeX部件不能创建对象"Scripting.FileSystemObject"的提示,不知为何,求解如何让其在windowsCE下运行,急》》,求大神指点
程序脚本如下:
Sub VBFunction_3()
Dim fso, FName,Fpath, Variable_Date, Variable_Time
Dim ValueYear, ValueMonth, ValueDay, ValueHour, FileName, DataFileName
Dim FloderName,testrecordfile,testrecord,newbook,xlsapp,xl***ook,xlssheet
Dim mMonth,mDay,Record_Nr,openfile,group,xlssheet1,xlssheet3
group = 1
FloderName="Storage Card USB测试记录"
If Len(Month(Date))=1 Then
mMonth= "0" & Month(Date)
Else
mMonth=Month(Date)
End If
If Len(Day(Date))=1 Then
mDay="0" & Day(Date)
Else
mDay= Day(Date)
End If
FName = "Storage Card USB测试记录" &"直磨机" & Year(Date) & mMonth & mDay & ".xls"
Set fso = CreateObject("Scripting.FileSystemObject")
Set xlsapp = CreateObject("excel.application")
If Not fso.FolderExists(FloderName) Then
fso.CreateFolder(FloderName)
End If
If Not fso.FileExists(FName)Then
Set xl***ook =xlsapp.Workbooks.Add
xl***ook.SaveAs FName
Else
' Set xl***ook = xlsapp.Workbooks.Open(FName)
End If
xlsapp.Workbooks.Open FName
Set xlssheet1 = xlsapp.Worksheets(1)
Set xlssheet3 = xlsapp.Worksheets(3)
If xlssheet3.Cells( 1, 2)="" Then
Record_Nr = 0
Else
Record_Nr =xlssheet3.Cells( 1, 2).value
End If
xlssheet1.Name = "test"
If Record_Nr = 0 Then
xlssheet1.Cells(1, 1).value = "序号"
xlssheet1.Cells(1, 2) = "测试时间"
xlssheet1.Cells(1, 3) = "产品型号"
xlssheet1.Cells(1, 4) = "转向"
xlssheet1.Cells(1, 5) = "电流"
xlssheet1.Cells(1, 6) = "转速"
xlssheet1.Cells(1, 7) = "测试结果"
End If
xlssheet1.Cells(Record_Nr * group + 1 + 1, 1) = Record_Nr + 1
xlssheet1.Cells(Record_Nr * group + 1 + 1, 2) = Date & " " & Time
xlssheet1.Cells(Record_Nr * group + 1 + 1, 3) = HmiRuntime.SmartTags("product name")
xlssheet1.Cells(Record_Nr * group + 1 + 1, 4) = HmiRuntime.SmartTags("direction pass")
xlssheet1.Cells(Record_Nr * group + 1 + 1, 5) = HmiRuntime.SmartTags("current test")
xlssheet1.Cells(Record_Nr * group + 1 + 1, 6) = HmiRuntime.SmartTags("speed test")
xlssheet1.Cells(Record_Nr * group + 1 + 1, 7) = HmiRuntime.SmartTags("pass")
xlssheet3.name = "records"
Record_Nr = Record_Nr + 1
xlssheet3.Cells(1, 1) = "纪录数"
xlssheet3.Cells(1, 2) = Record_Nr
xlsapp.ActiveWorkbook.Save
xlsapp.Workbooks.Close
xlsapp.Quit
Set xl***ook = Nothing
Set xlsapp = Nothing
Set testrecordfile = Nothing
Set fso = Nothing
End Sub
|