免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

1.Excel讀寫(xiě)

GlobalLists:

 Dim xlsApp As Object Dim xlsWB1 As Object Dim xlsWS1 As Object

Form:

Private Sub writeDataToExcel()  Set xlsApp = CreateObject("Excel.Application")  xlsApp.Visible = False ' 可視化  Set xlsWB1 =   xlsApp.Workbooks.Open("F:\VB98\inputData\inputData1.xlsx") ' 修改為需要的文件路徑----------------------- Set xlsWS1 = xlsWB1.WorkSheets("Sheet1") '寫(xiě)入（讀取反過(guò)來(lái)即可） xlsWS1.cells(excel_row + 5, excel_col + 5) = "  (●.●)" xlsApp.DisplayAlerts = False ' 不顯示警告 xlsWB1.Close True '保存數(shù)據(jù) xlsApp.quit Set xlsApp = Nothing Set xlsWB1 = Nothing Set xlsWS1 = NothingEnd Sub

2.dat文件讀寫(xiě)

Private Sub ReadDataFromDatFile()Dim strBuff As StringDim fileLengthDim count As Integer' 給出一個(gè)從.dat文件中讀取前16個(gè)數(shù)字的例子，其中的數(shù)字按需修改--------------------------------------' 如果需要寫(xiě)入數(shù)據(jù)，只需要file.writecount = 0Open "F:\VB98\inputData\inputData2.dat" For Input As #1Do Until EOF(1)Input #1, num1If count = 0 ThenElseIf count <= 4 Then    Text1(count - 1).Text = num1ElseIf count <= 8 Then    Text2(count - 5).Text = num1ElseIf count <= 12 Then    Text3(count - 9).Text = num1Else    Text4(count - 13).Text = num1End If'  Print num1;count = count + 1LoopClose #1If ifOption1Click = 1 Thenres = record()End IfEnd Sub