作者rex921 (小雷)
看板Visual_Basic
标题[VB6 ] 请教巨集重覆执行的问题
时间Tue May 10 15:42:01 2016
各位前辈好!!
小弟目前遇到的问题: 将MSFlexGrid的内容转存成excel档案
下面为片段程式码
*------
Dim objExcelApp As Excel.Application
Dim objSheet_VAC As Excel.Worksheet
在宣告这边我没有宣告Workbook
Set objExcelApp = CreateObject("ExcelApplication")
objExcelApp.Workbooks.Add '
这里新增一个工作簿
objExcelApp.Visible = True
objExcelApp.ActiveWorkbook.Worksheets.Add
Set objsheet_VAC = objExcelApp.ActiveWorkbook.Activesheet
objsheet_VAC.name = "VAC"
'以下总共会新增三个sheet并重新命名
省略用一行表示
以下为执行巨集区块
objSheet_VAC.Activate
'设定目前focus在指定sheet
test
'这边是把excel录制的巨集加入至VB6的模组内来呼叫
巨集内容只是做栏位合并跟调整字型
Set objExcelApp = Nothing
Set objSheet_VAC = Nothing
'----------
目前状况是我资料都显示在MSFlexGrid上，我去Click转存excel的按钮第一次巨集
可以正常执行，此时我画面会出现excel表格并填上我要的资料与调整格式。
再来我excel不存档直接关闭，再执行一次转存excel的按钮，这时候资料还是有
正常填写进去，但是却没有执行巨集作格式调整，我有试着单步除错，发现在我
第二次执行转存excel按纽时，程式进入巨集的第一道程式码就跳出巨集，
而第一道程式码是
Range("A2:N2").Select
但我比较不怀疑是巨集的程式码造成，不知道是不是第一次我把excel关闭，没有正确
把excel释放掉造成?
有请各位前辈替小弟我解惑， 谢谢
--
活在我不懂的道理
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 210.61.204.1
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1462866139.A.816.html
※ 编辑: rex921 (210.61.204.1), 05/10/2016 15:53:55
※ 编辑: rex921 (210.61.204.1), 05/10/2016 16:15:06
※ 编辑: rex921 (210.61.204.1), 05/10/2016 16:55:36
1F：推 fumizuki: 不使用excel的时候要呼叫Application.Quit 05/10 21:26
2F：→ fumizuki: 只有把参考设定Nothing，app并不会结束 05/10 21:26
3F：→ fumizuki: 在quit之前也应该呼叫Workbook.Close关闭活页簿 05/10 21:28
我试试看!!感谢您。
※ 编辑: rex921 (61.227.199.184), 05/10/2016 22:34:40
最後是把所有Set xlsheet = XXX 都把他设定成nothing 还有相关的recordset也设定
处理程序就可以正常关闭了，
过程中发现，如果在VB6使用 sheet(1).select ,但是程式并没有create这个名称的话
整个 set nothing就不会成功，VB6对於excel的除错功能好像没那麽完善，
或者该说没有@@!! 我是从头create excel 然後关闭excel去验证，慢慢复制旧的程式码，
一行一行debug ...
※ 编辑: rex921 (210.61.204.1), 05/12/2016 10:56:54
再请教一个问题...
我用excel 2003录制了一个巨集并汇出成.bas档案，并加入VB6的模组
内容是选取所有储存格，文字置中加粗的功能
以下是bas档案的程式码
Public Sub test()
Cells.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
End With
Selection.Font.Bold = True
End Sub
只要我在主程式区呼叫这个副程式，我的Excel处理程序就关不掉，
不知道是不是.bas这个副程式的写法不完善?导致我的主程式下次
无法再正常执行这个副程式?
烦请前辈替小弟我解惑，谢谢!
※ 编辑: rex921 (210.61.204.1), 05/12/2016 11:32:15
4F：推 fumizuki: 没记错的话，Close & Quit & 设定 Nothing 就好了 05/12 19:37
5F：→ fumizuki: New Excel.Application 是在呼叫 Excel主程式 05/12 19:37
6F：→ fumizuki: 凡是外部程序都不受vb6管理 05/12 19:38
7F：→ fumizuki: 没记错的话，vb6程式正常结束後，被呼叫的excel也会结束 05/12 19:39
的确，当我程式关闭程序都会自动关闭!!
8F：→ fumizuki: vb6应该不认识什麽叫Selection 05/12 19:44
Selection是用excel录制的巨集，还是得改成VB6看得懂得语法....
9F：→ fumizuki: 要改成 objExcelApp.Selection 05/12 19:44
VB6与excel版本还有VBA太纠缠不清了 ，不应该本是同根生吗...哈哈
我换个作法，先自己弄一个空白的excel档案，然後把格式跟巨集写在里面.
然後VB6开启这个空白档案把资料写进去，另存新档..user开启档案就会自动执行巨集
就可以把格式调整好了!!
终於把头痛的问题搞定了!!谢谢前辈。
※ 编辑: rex921 (61.227.198.216), 05/12/2016 21:07:32