作者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