作者chrishappy11 ()
看板Visual_Basic
標題[VB6 ] 請問一下各位高手大人 EXCEL存取陣列問題
時間Tue Nov 22 15:19:37 2011
小弟想用VB6來從活頁A裡儲存到B活頁裡
因為數量多,所以我不考慮用VBA
(別再跟我說VBA可用了...拜託^^")
我的方法是宣告一個陣列將活頁A裡內容存裡來
陣列裡的值再放進活頁B裡,請看我寫的程式碼:
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Test.xls")
xlApp.DisplayAlerts = True
xlApp.Visible = True
xlBook.Activate
xlBook.Parent.Windows(1).Visible = True
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Activate
'以上宣告活頁A
Dim xlApp1 As Excel.Application
Dim xlBook1 As Excel.Workbook
Dim xlSheet1 As Excel.Worksheet
Set xlApp1 = CreateObject("Excel.Application")
Set xlBook1 = xlApp1.Workbooks.Open(File1.Path & "\" & File1.FileName)
xlApp1.DisplayAlerts = True
xlApp1.Visible = True
xlBook1.Activate
xlBook1.Parent.Windows(1).Visible = True
Set xlSheet1 = xlBook1.Worksheets(1)
xlSheet1.Activate
'以上宣告活頁B
Dim data1(20) As Integer '行
Dim data2(20) As Integer '列
Dim i As Integer
Dim j As Integer
For i = 1 To 20
For j = 1 To 20
data1(i) = xlSheet.Cells(i, 1)
data2(j) = xlSheet.Cells(1, j)
xlSheet1.Cells(i, 1).Value = data1(i)
xlSheet1.Cells(1, j).Value = data2(j)
Next j
Next i
執行後..活頁B竟然什麼東西都沒有
請問可訢我那裡寫錯了嗎?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.195.192.129
1F：→ MOONRAKER:VBA當然可用阿 |D 簡單的路你不走，那就隨便啦 11/22 15:53
抱歉..因為我不止要從一個活頁弄到A活頁裡
是非常非常..多的活頁..弄到A裡
※ 編輯: chrishappy11 來自: 123.195.192.129 (11/22 18:17)
2F：→ MOONRAKER:多不多跟VBA或VB6沒什麼關係，就一個迴圈不斷切換而已 11/22 21:53
3F：→ MOONRAKER:你的考量我看不懂。 11/22 21:54
4F：→ tsongs:要活用debug模式一行行跑程式，你就不會問這問題 11/22 23:24
5F：→ tsongs:在你要看得那一行前面點一下，讓程式跑到那邊停下來 11/22 23:25
6F：→ tsongs:停下來後游標移到參數上可看到參數值 11/22 23:27
7F：→ tsongs:這問題我就會在 For i = 1 To 20 這行開始查 11/22 23:29
8F：→ tsongs:這樣很快就知到是讀A有問題還是寫入B有問題 11/22 23:34