Dim fhandle為整數
Dim Fname作為字符串
將下壹行標註為字符串
Dim ooooo，llll，ooooo1，kk
ooooo = 1
oooooo 1 = 1
llll = 1
路徑時鐘。“\set.ini”讀取文件名。
fhandle = FreeFile
將二進制文件的Fname作為fhandle打開
Combo1。清楚的
執行到EOF(fhandle)
Line Input #fhandle，NextLine '讀取NextLine中的壹行。
如果NextLine = " "然後轉到hhhh '則切換結束。
kk = Len(Trim(NextLine))
kk = Mid(Trim(NextLine)，Len(Trim(NextLine)) - 1，2)
kk = Mid(Trim(NextLine)，11，Len(Trim(NextLine)) - 10)
環
hhhh:關閉手柄
結束功能
2.寫入EXCEL表格
選項顯式
將xlApp標註為對象
Dim xlBook作為對象
將xlsheet作為對象變暗
私有子命令1_Click()
destination file = " f:\ SQL \ sblr \ sblr . xls " '打開文件。
Set xlapp = createobject ("EXCEL。application ")'創建Excel應用程序類。
XlApp。“Visible = True”將EXCEL設置為可見。
Set xlbook = xlapp.workbooks.open(目標文件)'打開EXCEL工作簿。
set XL sheet = XL book . worksheets(1)'打開EXCEL工作表。
Xlsheet。“激活”激活工作表。
Xlsheet。cells (1，1) =“妳要寫的東西”'把內容寫在Excel表格裏。
Ss = xlsheet。Cells (1，1) =“妳要讀的”'從Excel表格SS中讀取內容是壹個變量。
(1，1)是Excel表格的行和列。