Релиб / Программирование / Visual Basic / VB 6.0 и Excel / Latest Posts

RE: VB 6.0 и Excel

Vodizzz — Wed, 18 Apr 2007 11:13:24 GMT

xlApp.Quit уже поставил

если я пишу
[quote]а=2
ActiveWindow.FreezePanes = False
Wsh.Cells(a, 2).Select
ActiveWindow.FreezePanes = True[/quote]
то ошибка на строке ActiveWindow.FreezePanes = False,
а если [quote]
а=2
Wsh.Cells(a, 2).Select
ActiveWindow.FreezePanes = True[/quote]
то на строке ActiveWindow.FreezePanes = True

Excel 2002

А что предпочтительнее использовать
Dim xlApp As New Excel.Application
или
Set xlApp = CreateObject("Excel.Application")

RE: VB 6.0 и Excel

CepbIu — Wed, 18 Apr 2007 09:44:04 GMT

Чтоб зыкрыть эксел надо написать xlApp.Quit, ты же только книгу закрываешь.

Запустил твой код, если присвоить переменной "а" значение, то ошибок не возникает. На какой строке у тебя возникает ошибка и какой версии эксел?

Кстати, одну из этих строк можно удалить:

Dim xlApp As New Excel.Application
Set xlApp = CreateObject("Excel.Application")

RE: VB 6.0 и Excel

Vodizzz — Tue, 17 Apr 2007 18:32:30 GMT

[quote] Dim xlApp As New Excel.Application
Dim Wbk As Workbook
Dim Wsh As Worksheet

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False

Set Wbk = xlApp.Workbooks.Add
Wbk.Activate
Set Wsh = Wbk.Worksheets.Add
Wsh.Activate
...
ActiveWindow.FreezePanes = False
Wsh.Cells(a, 2).Select
ActiveWindow.FreezePanes = True
...
Wbk.SaveAs FileName:="C:\xx.xls", FileFormat:=xlNormal
Wbk.Close
Set Wsh = Nothing
Set Wbk = Nothing
Set xlApp = Nothing
[/quote]

Ошибка: [b]Object variable or With block variable not set[/b]

RE: VB 6.0 и Excel

CepbIu — Tue, 17 Apr 2007 11:43:57 GMT

можешь код показать как закрываешь эксел и какую ошибку выдает при FreezePanes?

VB 6.0 и Excel

Vodizzz — Mon, 16 Apr 2007 17:58:44 GMT

Здравствуйте!
Помогите, пожалуйста разобраться.
Я в Visual Basic 6.0 открываю приложение Excel создаю лист, записываю в него данные из БД и закрываю.
Но Excel почему-то не до конца закрывается. Если оставить xlApp.Visible = True, то видно что окно Microsoft Excel не закрылось.

И еще я пытаюсь закрепить области в книге
[quote]
.Cells(a, 2).Select
ActiveWindow.FreezePanes = True [/quote]
первый раз - нормально, потом ошибка...

делаю так:
[quote]
ActiveWindow.FreezePanes = False
.Cells(a, 2).Select
ActiveWindow.FreezePanes = True [/quote]
таже история.

:(