更改以下內容:
公共Sub OpenExcell()
Dim var為整數
將I標註為整數
範圍(“F2”)。挑選
選擇。復制
var =範圍(" F2 ")
練習冊。打開“C:\Skid.xls”
i = 2
在激活工作表時執行。細胞(I,3)。價值& lt& gt""
i = i + 1
環
細胞(I,3)。值= var
申請。CutCopyMode = False
工作簿(“Skid.xls”)。關閉(真)
末端接頭