Runtime error 1004 общая ошибка odbc - Не ошибается лишь тот, кто ничего не делает!

We are using shared folder in server where we keep all excel sheets based on our business requirement so whoever requires that document he will picked up that document from that shared folder and he will receive all update/manipulated data by clicking on «Refresh» button in «Data» tab in excel 2007,so in my organization everybody pc is working fine and they are getting updated data by refreshing document but in my pc the movement i click on refresh i am getting this error which is in image below please provide me a clear answer.

Sub TT_Out()
' ' Macro2 Macro

Dim RngFromDate, RngToDate
RngFromDate = InputBox("Enter Start Date !", "TT Out", Date - 1)
RngToDate = InputBox("Enter End Date !", "TT Out", RngFromDate)

With Range("Table_Query_from_ALXORCL[TT_OUT_DATE]").ListObject.QueryTable
    .Connection = Array(Array( _
        "ODBC;DRIVER={Oracle in instantclient_12_1};" & _
              "SERVER=ALXORCL;UID=ALXLIVE;PWD=alx123;" & _
              "DBQ=ALXORCL;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;F"), _
        Array("DL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;" & _
              "DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;" & _
              "MLD=0;ODA=F;STE=F;TSZ=8"), Array("192;"))
    .CommandText = Array( _
        " SELECT ALX_TT_OUT.TT_OUT_CODE, " & _
        "        ALX_TT_OUT.TT_OUT_DATE, " & _
        "        ALX_TT_OUT.F_NAME, " & _
        "        ALX_TT_OUT.B_F_NAME, " & _
        "        ALX_TT_OUT.SENDING_PRPS, " & _
        "        ALX_LOOKUP_DET.LOOKUP_DET_NAME||'-'||ALX_TT_OUT.DOC_NO, " & _
        "        ALX_PRODUCT.PRODUCT_CODE, " & _
        "        ALX_TT_OUT.QTY*ALX_TT_OUT.SELL_RATE, " & _
        "        ALX_CORRESPONDENT.CORRESPONDENT_NAME" & Chr(13) & Chr(10) & _
        " FROM ALXTEST.ALX_CORRESPONDENT ALX_CORRESPONDENT, ALXTEST2.ALX_LOOKUP_DET ALX_LOOKUP_DET, ALXTEST2.ALX_PRODUCT ALX_PRODUCT, ALXL", _
        "      IVE.ALX_TT_OUT ALX_TT_OUT" & Chr(13) & "" & Chr(10) & _
        " WHERE ALX_PRODUCT.PRODUCT_ID = ALX_TT_OUT.PRODUCT_ID " & _
        "   AND ALX_TT_OUT.CORRESPONDENT_ID = ALX_CORRESPONDENT.CORRESPONDENT_ID " & _
        "   AND ALX_LOOKUP_DET.LOOKUP_DET_ID = ALX_TT_OUT.DOC_TYPE_L ", _
        "   AND ((ALX_TT_OUT.TT_OUT_CODE Not Like '%HOF%') " & _
        "         AND (to_date(TT_OUT_DATE) Between '" & RngFromDate & "' And '" & RngToDate & "') " & _
        "        )")
    .Refresh BackgroundQuery:=False
End With

End Sub

Источник

Содержание

Как исправить ошибку выполнения 1004 в Microsoft Excel?
Что такое ошибка времени выполнения 1004 в Excel?
Типы сообщений об ошибках
Каковы причины?
Исправить ошибку выполнения 1004 в Excel
1]Создайте новый шаблон Excel
2]Запустите сканирование на вирусы
3]Для VB: ошибка времени выполнения «1004», измените размер записей легенды.
Ошибка времени выполнения 1004 при внесении изменений в записи условных обозначений на диаграмме в Excel
Симптомы
Причина
Обходной путь
«Run-time Error 1004» when you make changes to legend entries in a chart in Excel
Symptoms
Cause
Workaround
Как исправить ошибку Microsoft Excel 1004
Проверка «Application-defined or object-defined error»
Что генерирует ошибку времени выполнения 1004?
Распространенные проблемы Application-defined or object-defined error
Причины проблем Application-defined or object-defined error

Как исправить ошибку выполнения 1004 в Microsoft Excel?

Майкрософт Эксель — одна из самых популярных электронных таблиц, используемых во всем мире как для личных, так и для деловых целей. Это универсальное место для хранения, организации и обработки данных организованным способом. MS Excel поставляется в основном с двумя расширениями, то есть в формате XLS и XLSX. Однако, помимо невероятной популярности, ошибки во время выполнения — обычная неприятность для очень многих пользователей Windows, и одной из самых распространенных является ошибка. Ошибка выполнения 1004.

В этом руководстве мы собираемся обсудить эту распространенную ошибку времени выполнения 1004 и некоторые из лучших исправлений для ее легкого решения.

Что такое ошибка времени выполнения 1004 в Excel?

Ошибка выполнения 1004 — это код ошибки, относящийся к Microsoft Visual Basic, который, как известно, беспокоит пользователей Microsoft Excel. С этой ошибкой сталкиваются любые версии MS Excel, такие как Excel 2007, 2010, 2013, 2016, 2019. Ни одна версия Microsoft Excel не застрахована от угрозы Runtime Error 1004.

С этой ошибкой в основном сталкиваются пользователи, когда они работают с файлом Excel или пытаются создать макрос в документе Excel. Это может вызвать серьезные проблемы при работе с приложениями Visual Basic и привести к полному сбою программы или даже всей системы; иногда это может привести к зависанию системы, запрещая пользователям что-либо делать в своей системе.

Типы сообщений об ошибках

Сообщения об ошибках, которые больше всего связаны с этой ошибкой времени выполнения, следующие:

VB: ошибка времени выполнения ‘1004’: ошибка приложения или объекта
Ошибка выполнения Excel VBA 1004 «Ошибка выбора метода класса Range»
ошибка времени выполнения 1004 диапазон метода объекта _global не удалось Visual Basic
Макрос Excel «Ошибка выполнения» 1004?
Ошибка выполнения 1004 не удалось открыть метод объектных книг
Ошибка времени выполнения «1004»: сбой метода «Рейнджер» объекта «Рабочий лист»
«Сбой метода в ПРИЛОЖЕНИИ ПРИЛОЖЕНИЯ ОБЪЕКТНОЙ программы».

Если вы столкнулись с какой-либо из этих ошибок, вы можете исправить ее с помощью нашего руководства.

Каковы причины?

Ошибка 1004 — это общий код, связанный с MS Excel, но не связанный с одной точной причиной. Следовательно, в этом случае точная причина, по которой может появиться эта ошибка, будет варьироваться от случая к случаю и от обстоятельств к обстоятельствам. От проблем с конфигурацией до проблем с программным обеспечением, ниже мы перечислили краткий обзор распространенных причин ошибки времени выполнения 1004 в Excel:

Значок рабочего стола MS Excel может быть поврежден
Файл VBA Excel конфликтует с другим приложением
Из-за ошибки, указанной в приложении или объекте
Из-за отсутствия зависимого файла
Из-за вируса, трояна или вредоносного ПО
Из-за неверных ключей реестра и так далее.

Это были некоторые из наиболее частых причин получения ошибки времени выполнения 1004 в MS Excel; Теперь давайте разберемся с различными исправлениями.

Исправить ошибку выполнения 1004 в Excel

Здесь мы подробно описали как ручные, так и автоматические решения для исправления ошибки выполнения 1004. Вы можете использовать любой из следующих методов, чтобы решить проблему.

Создать новый шаблон Excel
Запустите сканирование на вирусы
Для VB: ошибка времени выполнения ‘1004’, измените размер записей легенды

Давайте подробно рассмотрим каждый из этих методов.

1]Создайте новый шаблон Excel

В некоторых случаях для устранения этой проблемы достаточно просто вставить новый лист из шаблона вместо создания копии существующего листа. Вот что вам нужно сделать:

1]Откройте MS Excel в вашей системе

2]Нажмите ‘CTRL + N‘для создания нового листа Microsoft Excel или просто выберите’Пустая книга‘с первого экрана.

3]После этого удалите все листы в книге, кроме одного.

4]Теперь отформатируйте оставшуюся книгу. Также обратите внимание, что эту книгу можно изменить в соответствии с вашими индивидуальными потребностями.

5]В конце перейдите к ‘Файл> Сохранить как‘, чтобы сохранить новый рабочий лист в формате файла шаблона Excel (.xltx или .xlt).

6]После успешного создания шаблона вы можете вставить его программно, используя следующую строку кода:

Таблицы.Добавить Тип: = путь имя файла

Пожалуйста, обрати внимание — Не забудьте заменить новое имя файла на настоящее имя документа.

2]Запустите сканирование на вирусы

Очень важно сканировать компьютерную систему на наличие вредоносных программ и вирусов, поскольку они могут повредить файлы и важные документы и показать ошибку времени выполнения 1004 в MS Excel. Иногда очень помогает хорошая антивирусная программа.

3]Для VB: ошибка времени выполнения «1004», измените размер записей легенды.

Если вы столкнулись с ошибкой времени выполнения 1004 при запуске макроса Microsoft Visual Basic для приложений (VBA), вы можете использовать этот метод для временного решения.

Обычно эта ошибка возникает при попытке запустить макрос VBA, который использует метод LegendEntries для внесения изменений в записи легенды на диаграмме Microsoft Excel. На этот раз вы можете получить следующее сообщение об ошибке:

Ошибка времени выполнения ‘1004’: ошибка приложения или объекта

Эта ошибка возникает, когда диаграмма Excel содержит больше записей легенды, чем имеется место для отображения записей легенды на диаграмме Excel. В этом случае Microsoft Excel может усекать записи легенды.

Чтобы обойти это поведение, создайте макрос, который уменьшает размер шрифта текста легенды диаграммы Excel до того, как макрос VBA внесет изменения в легенду диаграммы, а затем восстановите размер шрифта легенды диаграммы, чтобы он был похож на следующий пример макроса. .

Мы надеемся, что эта статья поможет вам исправить ошибку времени выполнения 1004 в Microsoft Excel. Это руководство дает вам как ручное, так и автоматическое решение, чтобы избавиться от этой ошибки; вы можете использовать любое решение в зависимости от ваших потребностей.

Читать дальше: Клавиши со стрелками не работают в Microsoft Excel.

Источник

Ошибка времени выполнения 1004 при внесении изменений в записи условных обозначений на диаграмме в Excel

Симптомы

При запуске макроса Microsoft Visual Basic для приложений (VBA), использующего метод LegendEntries для внесения изменений в записи условных обозначений в диаграмме Microsoft Excel, может появиться следующее сообщение об ошибке:

Ошибка времени выполнения «1004»: ошибка приложения или объекта

Причина

Это происходит, когда диаграмма Excel содержит больше записей условных обозначений, чем доступно для отображения записей условных обозначений на диаграмме Excel. При таком поведении Microsoft Excel может усечение записей условных обозначений.

Так как метод LegendEntries в макросе VBA использует то, что отображается для усеченных записей усеченных условных обозначений, сообщение об ошибке, упомянутое в разделе «Симптомы» этой статьи, возникает, когда записей больше, чем доступно для отображения записей условных обозначений на диаграмме Excel.

Обходной путь

Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации и не предоставляет явных или подразумеваемых гарантий относительно их корректной работы в конкретных случаях и в пользовательских приложениях. Примеры в данной статье рассчитаны на пользователя, имеющего достаточный уровень знаний соответствующего языка программирования, а также необходимых средств разработки и отладки. Специалисты служб технической поддержки Майкрософт могут пояснить назначение тех или иных конструкций кода в конкретном примере, но модификация примеров и их адаптация к задачам разработчика не поддерживается.

Дополнительные сведения о доступных вариантах поддержки и способах связи с корпорацией Майкрософт см. на следующем веб-сайте Майкрософт:

Чтобы обойти это поведение, создайте макрос, который уменьшает размер шрифта текста условных обозначений диаграммы Excel, прежде чем макрос VBA внося изменения в условные обозначения диаграммы, а затем восстановите размер шрифта условных обозначений диаграммы, чтобы он был похож на следующий пример макроса.

Для правильного выполнения макроса на листе должна быть диаграмма Excel.

Источник

«Run-time Error 1004» when you make changes to legend entries in a chart in Excel

Symptoms

When you run a Microsoft Visual Basic for Applications (VBA) macro that uses the LegendEntries method to make changes to legend entries in a Microsoft Excel chart, you may receive the following error message:

Run-time error ‘1004’: Application or object-defined error

Cause

This behavior occurs when the Excel chart contains more legend entries than there is space available to display the legend entries on the Excel chart. When this behavior occurs, Microsoft Excel may truncate the legend entries.

Because the LegendEntries method in your VBA macro uses what appears for the legend (in this case, the truncated legend entries), the error message that is mentioned in the «Symptoms» section of this article occurs when there are more entries than there is space available to display the legend entries on the Excel chart.

Workaround

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs.

For more information about the support options that are available and about how to contact Microsoft, visit the following Microsoft Web site:

To work around this behavior, create a macro that reduces the font size of the Excel chart legend text before your VBA macro makes changes to the chart legend and then restore the font size of the chart legend so that it is similar to the following macro example.

You must have an Excel chart on your worksheet for this macro to run correctly.

Источник

Как исправить ошибку Microsoft Excel 1004

	Номер ошибки:	Ошибка 1004
Название ошибки:	Application-defined or object-defined error
Описание ошибки:	Run-time error ‘1004’. Application-defined or object-defined error.
Разработчик:	Microsoft Corporation
Программное обеспечение:	Microsoft Excel
Относится к:	Windows XP, Vista, 7, 8, 10, 11

Проверка «Application-defined or object-defined error»

Обычно люди ссылаются на «Application-defined or object-defined error» как на ошибку времени выполнения (ошибку). Чтобы убедиться, что функциональность и операции работают в пригодном для использования состоянии, разработчики программного обеспечения, такие как Microsoft Corporation, выполняют отладку перед выпусками программного обеспечения. Ошибки, такие как ошибка 1004, иногда удаляются из отчетов, оставляя проблему остается нерешенной в программном обеспечении.

Пользователи Microsoft Excel могут столкнуться с ошибкой 1004, вызванной нормальным использованием приложения, которое также может читать как «Run-time error ‘1004’. Application-defined or object-defined error.». Сообщение об этой ошибке 1004 позволит разработчикам обновить свое приложение и исправить любые ошибки, которые могут вызвать его. Затем Microsoft Corporation исправит ошибки и подготовит файл обновления для загрузки. Следовательно, разработчик будет использовать пакет обновления Microsoft Excel для устранения ошибки 1004 и любых других сообщений об ошибках.

В первый раз, когда вы можете столкнуться с ошибкой среды выполнения Microsoft Excel обычно с «Application-defined or object-defined error» при запуске программы. Вот три наиболее заметные причины ошибки ошибки 1004 во время выполнения происходят:

Ошибка 1004 Crash — это распространенная ошибка 1004 во время выполнения ошибки, которая приводит к полному завершению работы программы. Эти ошибки обычно возникают, когда входы Microsoft Excel не могут быть правильно обработаны, или они смущены тем, что должно быть выведено.

Утечка памяти «Application-defined or object-defined error» — Когда Microsoft Excel обнаруживает утечку памяти, операционная система постепенно работает медленно, поскольку она истощает системные ресурсы. Возможные искры включают сбой освобождения, который произошел в программе, отличной от C ++, когда поврежденный код сборки неправильно выполняет бесконечный цикл.

Ошибка 1004 Logic Error — логическая ошибка Microsoft Excel возникает, когда она производит неправильный вывод, несмотря на то, что пользователь предоставляет правильный ввод. Когда точность исходного кода Microsoft Corporation низкая, он обычно становится источником ошибок.

Как правило, такие Microsoft Corporation ошибки возникают из-за повреждённых или отсутствующих файлов Application-defined or object-defined error, а иногда — в результате заражения вредоносным ПО в настоящем или прошлом, что оказало влияние на Microsoft Excel. Основной способ решить эти проблемы вручную — заменить файл Microsoft Corporation новой копией. Запуск сканирования реестра после замены файла, из-за которого возникает проблема, позволит очистить все недействительные файлы Application-defined or object-defined error, расширения файлов или другие ссылки на файлы, которые могли быть повреждены в результате заражения вредоносным ПО.

Распространенные проблемы Application-defined or object-defined error

Наиболее распространенные ошибки Application-defined or object-defined error, которые могут возникнуть на компьютере под управлением Windows, перечислены ниже:

«Ошибка Application-defined or object-defined error. «

«Недопустимая программа Win32: Application-defined or object-defined error»

«Извините за неудобства — Application-defined or object-defined error имеет проблему. «

«К сожалению, мы не можем найти Application-defined or object-defined error. «

«Application-defined or object-defined error не может быть найден. «

«Ошибка запуска программы: Application-defined or object-defined error.»

«Application-defined or object-defined error не выполняется. «

«Application-defined or object-defined error остановлен. «

«Неверный путь к программе: Application-defined or object-defined error. «

Эти сообщения об ошибках Microsoft Corporation могут появляться во время установки программы, в то время как программа, связанная с Application-defined or object-defined error (например, Microsoft Excel) работает, во время запуска или завершения работы Windows, или даже во время установки операционной системы Windows. Документирование проблем Application-defined or object-defined error в Microsoft Excel является ключевым для определения причины проблем с электронной Windows и сообщения о них в Microsoft Corporation.

Причины проблем Application-defined or object-defined error

Проблемы Application-defined or object-defined error вызваны поврежденным или отсутствующим Application-defined or object-defined error, недопустимыми ключами реестра, связанными с Microsoft Excel, или вредоносным ПО.

В частности, проблемы Application-defined or object-defined error возникают через:

Недопустимая или поврежденная запись Application-defined or object-defined error.

Вредоносные программы заразили Application-defined or object-defined error, создавая повреждение.

Application-defined or object-defined error злонамеренно или ошибочно удален другим программным обеспечением (кроме Microsoft Excel).

Другая программа находится в конфликте с Microsoft Excel и его общими файлами ссылок.

Поврежденная загрузка или неполная установка программного обеспечения Microsoft Excel.

Совместима с Windows 2000, XP, Vista, 7, 8, 10 и 11

Источник

I had this exact error. The debug would take me to the .refresh line as well. I worked every which way I could think of to fix that line. Nothing worked.

The «General ODBC Error» verbiage had me thinking…I went to Run >> Microsoft ODBC Administrator >> Selected my DataSource >> Clicked the Configure button >> Clicked Test Connection

That returned an error that my password had expired and the database was set to read only. My Windows User password has not expired but it was within the window of when I «should» change my password…I was using a work machine and have mandatory user account password changes every 60-90 days or so with a 30-something day grace period. Didn’t even know that.

Not saying this is the fix for you, but I was getting the exact same error and had tried every little trick and edit this website, and the Internet, had to offer with no luck. I logged out, reset my Windows User Account password, logged back in, opened the excel file, hit the Refresh Button macro…and it worked.

Anyway, maybe this will help someone…

Источник

Sub zapros_k_prn()
    Лист8.Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=Файлы Excel;DBQ=" & ThisWorkbook.FullName & ";DefaultDir=C:" _
        ), Array( _
        Right(ThisWorkbook.Path, Len(ThisWorkbook.Path) - 3) & ";DriverId=790;MaxBufferSize=2048;PageTimeout=5" _
        ), Array(";")), Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT `PRN$`.F1, `PRN$`.F2, `PRN$`.F3, `PRN$`.F4, `PRN$`.F15, `PRN$`.F16, `PRN$`.F24+`PRN$`.F25+`PRN$`.F26+`PRN$`.F27+`PRN$`.F28+" _
        , _
        "`PRN$`.F29+`PRN$`.F30+`PRN$`.F31+`PRN$`.F32+`PRN$`.F33+`PRN$`.F34+`PRN$`.F35+`PRN$`.F36+`PRN$`.F37+`PRN$`.F38+`PRN$`.F39+" _
        , _
        "`PRN$`.F40+`PRN$`.F41, `PRN$`.F17+`PRN$`.F18+`PRN$`.F19+`PRN$`.F20+`PRN$`.F21+`PRN$`.F22+`PRN$`.F23+`PRN$`.F42, `PRN$`.F43, `PRN$`.F44," _
        , _
        "`PRN$`.F45, `PRN$`.F46, `PRN$`.F47, `PRN$`.F48, `PRN$`.F95, `PRN$`.F96, `PRN$`.F103+`PRN$`.F104+`PRN$`.F105+`PRN$`.F106+`PRN$`.F107," _
        , _
        "`PRN$`.F97+`PRN$`.F98+`PRN$`.F99+`PRN$`.F100+`PRN$`.F101+`PRN$`.F102, `PRN$`.F108, `PRN$`.F109, `PRN$`.F110, `PRN$`.F111," _
        , _
        "`PRN$`.F112, `PRN$`.F113, `PRN$`.F114, `PRN$`.F115, `PRN$`.F175, `PRN$`.F176, `PRN$`.F182+`PRN$`.F183+`PRN$`.F184+`PRN$`.F185+`PRN$`.F186," _
        , _
        "`PRN$`.F177+`PRN$`.F178+`PRN$`.F179+`PRN$`.F180+`PRN$`.F181+`PRN$`.F187, `PRN$`.F188, `PRN$`.F189, `PRN$`.F190, `PRN$`.F191, `PRN$`.F192," _
        , _
        "`PRN$`.F193 FROM `PRN$` `PRN$`" _
        )
        .Refresh BackgroundQuery:=False
    End With
End Sub

Источник

The following project worked well in Excel 97 before ugrading to a new version of Office, but now I get the above error when trying to run this in Excel 2003, 2007 or 2010. When I click on the debug it points to .Refresh BackgroundQuery:=False.
I know that this error is generic and I was hoping that I could get some assistance with what could be wrong with the code.

Option Explicit

Type StyleType
    StyleName As String
    FontSize As Variant
    FontStyle As String
    TextBackColor As String
    RowHeight As Variant
    ColumnWidth As Variant
    Alignment As String
    TextWrap As String
    NumericStyle As String
    DateStyle As String
    Border As String
End Type

Public Type typMenuItem
    item_uno As Integer
    item_code As String
    item_name As String
    item_desc As String
    item_sample_url As String
End Type

Public Type typMenuItem2
item_code As String
item_name As String
End Type

Public UseProd As Boolean, _
       ProdServer As String, _
       ProdDatabase As String, _
       ProdLogin As String, _
       ProdCompanyCode As String, _
       ProdPadClient As String, _
       ProdPadMatter As String, _
       ProdPadEmployee As String, _
       ProdPadJENumber As String, _
       UseReport As Boolean, _
       ReportServer As String, _
       ReportDatabase As String, _
       ReportLogin As String, _
       ReportCompanyCode As String, _
       ReportPadClient As String, _
       ReportPadMatter As String, _
       ReportPadEmployee As String, _
       ReportPadJENumber As String, _
       RunProd As Boolean, _
       ProdDisplay As String, _
       ReportDisplay As String

Public _
    ConnectString As String, _
    AllClients As Boolean, _
    AllMatters As Boolean, _
    AllTimekeepers As Boolean, _
    AllOffices As Boolean, _
    AllDepartments As Boolean, _
    AllPeriods As Boolean, _
    aryStyles() As StyleType, _
    arySheets() As Worksheet, _
    CodeOutput As String, _
    NameOutput As String, _
    TempARBuckets As Boolean, _
    ARBuckets As String, _
    Report As Workbook, _
    FirstRun As Boolean, _
    Term As String, _
    ShortDateCaption As String, _
    BulkRunFile As String, _
    BulkRunErrorFileName As String, _
    Monochrome As Boolean, _
    BoldAllColors As Boolean

Sub GetData(ByVal strCommand As String, Optional ByVal HorzOffset As Long = 0)

ThisWorkbook.Activate

Application.Cursor = xlWait

If strCommand = «» Then

Exit Sub

Else

Select Case Sheets(«Settings»).Cells(41, 1).Value

Case 0

strCommand = strCommand

Case 1

strCommand = «set language » & «us_english » & strCommand

Case 1

strCommand = «set language » & «British » & strCommand

Case 3

strCommand = «set language » & «Dansk » & strCommand

Case 4

strCommand = «set language » & «Deutsch » & strCommand

Case 5

strCommand = «set language » & «Español » & strCommand

Case 6

strCommand = «set language » & «Français » & strCommand

Case 7

strCommand = «set language » & «Italiano » & strCommand

Case 8

strCommand = «set language » & «Nederlands » & strCommand

Case 9

strCommand = «set language » & «Norsk » & strCommand

Case 10

strCommand = «set language » & «Português » & strCommand

Case 11

strCommand = «set language » & «Svenska » & strCommand

End Select

End If

Call BuildConnectString(1)

Dim i As Long, CurrentSheetName As String, PassString As String

If HorzOffset = 0 Then

CurrentSheetName = ActiveSheet.Name

If CurrentSheetName = «RawData» Then

        For i = 1 To Sheets.Count
            If Sheets(i).Name <> «RawData» Then

CurrentSheetName = Sheets(i).Name

Exit For

End If
Next i

If CurrentSheetName = «RawData» Then

            Sheets.Add After:=Sheets(Sheets.Count)
            ActiveSheet.Name = «Sheet1»
            CurrentSheetName = ActiveSheet.Name

End If

    For i = 1 To Sheets.Count
        If Sheets(i).Name = «RawData» Then

            Application.DisplayAlerts = False
            Sheets(«RawData»).Delete
            Application.DisplayAlerts = True

Exit For

        End If
    Next i

Sheets(«Run FASR»).Activate

    Sheets.Add
    ActiveSheet.Name = «RawData»
    ActiveSheet.Cells.Font.Color = ActiveSheet.Cells.Interior.Color

End If

Sheets(«Run FASR»).Activate

If UseProd = True And RunProd = True Then

PassString = «;PWD=» & D28339675(Sheets(«Settings»).Cells(5, 1).Value)

Else

PassString = «;PWD=» & D28339675(Sheets(«Settings»).Cells(13, 1).Value)

End If

With Sheets(«RawData»).QueryTables.Add(Connection:= _
    ConnectString & PassString _
    , Destination:=Sheets(«RawData»).Range(«$A$» + CStr(1 + HorzOffset)))
    .Sql = strCommand
    .FieldNames = False
    .RowNumbers = False
    .HasAutoFormat = False
    .FillAdjacentFormulas = False
    .RefreshOnFileOpen = False
    .BackgroundQuery = False
    .RefreshStyle = xlOverwriteCells
    .SavePassword = False
    .SaveData = True
    .Refresh BackgroundQuery:=False
End With

Application.Cursor = xlDefault

End Sub

Any help will be appreciated.

Moved by

Wednesday, August 10, 2011 8:11 PM
(From:Visual Basic General)

Источник