vba转换为vbs的方法_vba与vbs

下面是一段VBA代码，是将电子表格数据保存到二进制文件里，想要改为VBS代码，在下改了几天也没能成功，求各位伸出援手，帮帮我吧，先谢谢了！！！Subexceldata2fmldata()'将EXCEL工作...

下面是一段VBA代码，是将电子表格数据保存到二进制文件里，想要改为VBS代码，在下改了几天也没能成功，求各位伸出援手，帮帮我吧，先谢谢了！！！

Sub exceldata2fmldata()

'将EXCEL工作表数据写入FMLDATA文件

Dim sht As Worksheet, fmldataPath As String, fileName As String

Dim i As Integer, FileNumber

Dim dzhrq As Long, value As Single 'DZH时间,指标值(VBA的Long,Single为32位)

Dim dt As Date

Set sht = ThisWorkbook.Worksheets("sheet1") '假设要写入的数据在sheet1

fmldataPath = "d:\dzh2\fmldata\" 'FMLDATA所在路径

fileName = "000001.12345.day" '文件名

FileNumber = FreeFile

Open fmldataPath & fileName For Binary Access Write As #FileNumber '以写方式打开文件

i = 2 '设数据从第二行开始;第1列为日期，第2列为指标值

dt = sht.Cells(i, 1) '取出日期

Do While IsDate(dt) And dt <> TimeSerial(0, 0, 0)

dzhrq = DateDiff("s", DateSerial(1970, 1, 1), dt) '转为DZH日期：与1970.1.1间隔秒数

Put #FileNumber, , dzhrq

value = sht.Cells(i, 2) '取出指标值

Put #FileNumber, , value

i = i + 1

dt = sht.Cells(i, 1) '取出日期

Loop

Close #FileNumber '关闭文件

End Sub

展开