Excel提取多次运行相同提取的问题

时间:2016-05-23 16:57:27

标签: excel vba excel-vba vb6 extract

我正在构建一个摘录,我遇到了一个小问题。如果我运行一次提取(从VB6应用程序) - 一切正常。在函数结束时,我这样做....

xlbook.close
Set xlSheetInfo = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
xlApp.Quit

我让用户查看提取,但是,一旦关闭,EXCEL仍然显示为任务管理器中的一个进程。因此,当我再次尝试再次运行时,我收到错误...

91 object variable or with block variable not set

我在这行代码中收到错误....

With xlSheetSurvey.Range("A5:S5").Select
With Selection
    .HorizontalAlignment = xlCenter <----- here i get an error
    .VerticalAlignment = xlBottom
    .Font.Bold = True
end with
end with

为什么会这样?我希望它能连续多次运行而且它不会让我这样做

1 个答案:

答案 0 :(得分:0)

因此,当我应用对齐,字体等时,我正在做的是没有正确引用范围。我把它改成了这个并且效果很好......

xlsheetsurvey.Range("A5:S5").Horizontalalignment = xlCenter
xlsheetsurvey.range("A5:S5").verticalalignment=xlbottom 

....等等。我删除了with语句,并且在我引用RANGE的每一个实例中,我确保将其精确地引用到我正在使用的工作表中。谢谢!