1樓:
程式不能執行成功呢,粗看一下就有幾處錯誤:
一是少了一個next
二是range("a4").formular1c1 = sheets("附表修").range("h" & i) 這句的.formular1c1 去掉。
三是sheets("附表 (" & j & ")").name = sheets("附表修").range("g" & i) 這句在第二次迴圈就會報錯的,因為附表j被第一次修改後就不存在了。
2樓:
你有兩個for 而只有一個next的嘛
sub stick()
dim i as integer
dim j as integer
for i = 1 to 7
for j = 2 to 8
sheets("附表 (" & j & ")").name = sheets("附表修").range("g" & i)
range("a4").formular1c1 = sheets("附表修").range("h" & i)
range("g4").formular1c1 = sheets("附表修").range("i" & i)
range("a5").formular1c1 = sheets("附表修").range("j" & i)
next
next&&這兒少一個
end sub
用VB語言,將裡的內容分列讀取到excel裡。最好有原始碼,謝謝
給報酬或許有人幫你。願意請 聯 系 怎麼用vb把txt文字內容提取到excel中 求完整 應該很容易實現吧。具體要求再明確點,是隻匯入一個檔案,還是把所有的檔案都匯入 需不需要使用者來選擇目錄 或檔案 我上位機用vb想把從下位機讀取到的資料儲存到excel中,以時間命名。該怎麼做呢?最好有原始碼 我...
簡述vb的特點,vb語言的特點
vb的特點 1 視覺化的設計平臺 在使用傳統的程式設計語言程式設計時,一般需要通過編寫程式來設計應用程式的介面 如介面的外觀和位置等 在設計過程中看不見介面的實際效果。而在visual basic 6.0中,採用物件導向程式設計方法 object oriented programming 把程式和資...
VB的問題,一個VB的問題
以下 只需要按command1就可以同時顯示text1和text2了 option explicit option base 1 private sub command1 click dim a 15 as integer dim i as integer text1.text for i 1 to...