{quote}{login=Dophin}{date=09.11.2010 05:01}{thema=}{post}Firebird/InterBase® driver};Dbname= p"  замените на Firebird/InterBase® driver};Dbname= " & p{/post}{/quote}  
РАБОТАЕТ!!!!!!! СПАСИБО!!!!!!! Я уж начал думать, что это невозможно:)

пример файла не кинул, потому что здесь подключение к базе данных, которой естессно ни у кого нет...

{quote}{login=webley}{date=09.11.2010 04:46}{thema=}{post}А как эта переменная должна дальше работать? Дело то скорее всего не в кавычках{/post}{/quote}  
 
Вот код подключения к базе данных firebird через ODBC:  
Sub BD()  
' подключение к БД  
Dim p As String  
 p = Worksheets("настройка").Range("E3").Value  
   
   With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _  
       "ODBC;DSN=leninskaya;Driver={Firebird/InterBase® driver};Dbname= p " _  
       ), Array( _  
       ";CHARSET=WIN1251;;UID=SYSDBA;Client=C:\Program Files\Firebird\Firebird_2_1\bin\fbclient.dll;" _  
       )), Destination:=Range("A1"))  
       .CommandText = Array( _  
       "SELECT IP.NUM_IP, IP.NUM_ID, IP.DATE_IP_IN, IP.DATE_IP_OUT, IP.FAKT_SUM_IS, IP.MAIN_DOLG, IP.FIO_SPI, IP.NAME_V, IP.ADR_V, IP.NAME_D, IP.ADR_D, IP.RECALL_SUM, IP.SUM_, IP.SUM_IS, IP.OLDNUM_IP" & Chr(13) & "" & Chr(10) & "FROM IP" _  
       , " IP")  
       .Name = "Запрос из leninskaya"  
       .FieldNames = True  
       .RowNumbers = False  
       .FillAdjacentFormulas = False  
       .PreserveFormatting = True  
       .RefreshOnFileOpen = False  
       .BackgroundQuery = True  
       .RefreshStyle = xlInsertDeleteCells  
       .SavePassword = False  
       .SaveData = True  
       .AdjustColumnWidth = True  
       .RefreshPeriod = 0  
       .PreserveColumnInfo = True  
       .Refresh BackgroundQuery:=False  
   End With  
End Sub  
 
так вот, если в Dbname= p вместо р вставить путь без кавычек, то все работает. хотелось бы что б путь вставлялся переменной...

Можно ли присвоить переменной текстовое имя без кавычек, то есть, например,    
 
Dim i As String  
   i = Worksheets("настройка").Range("E3").Value  
 
в ячейке лежить путь такого плана: D:\фыва\олдж  
естессно переменная определяется дальше в коде как: "D:\фыва\олдж"  
но с кавычками у меня не работает  
Вопрос: можно ли чтоб переменная вставлялась в коде без кавычек?

{quote}{login=ww}{date=21.10.2010 10:03}{thema=}{post}r = Cells(Rows.Count, 4).End(xlUp).Row - последняя непустая ячейка в столбце 4  
Range("d1:d" & r) - диапозон{/post}{/quote}  
 
Все! Теперь разобрался! Спасибо, это тоже подходит!!!

WW, не тот код цитировал... ("d1:d" относится к выше написанному)

{quote}{login=ww}{date=20.10.2010 04:41}{thema=}{post}SpecialCells(xlCellTypeConstants, 2) - если в ячейках текст (в 4ом столбеце)  
SpecialCells(xlCellTypeConstants, 1) - если в ячейках числа  
SpecialCells(xlCellTypeConstants, 3) - если в ячейках текст,числа{/post}{/quote}  
А "d1:d" , что означает?

{quote}{login=ww}{date=20.10.2010 03:19}{thema=}{post}r = Cells(Rows.Count, 4).End(xlUp).Row  
c = Application.CountA(Range("d1:d" & r))  
For i = 1 To c  
Range("d1:d" & r).SpecialCells(xlCellTypeConstants, 2).Select  
ActiveCell.EntireRow.Delete  
Next{/post}{/quote}  
 
Почему-то не получилось с этим кодом, применяя к другой таблице((( Не совсем разобрался как он работает...

Как удалить строку, если в столбце есть заполненная ячейка.  
В примере: если в 4ом столбеце есть ячейка со значением не пусто, то удалить строку

Всем спасибо!

slav, спасибо может это поможет! я искал firebird и vb, поэтому и не попадал на эту статью...

{quote}{login=Z}{date=20.09.2010 06:33}{thema=Re: Возможно ли извлечение данных из firebird базы с помощью vb?}{post}{quote}{login=uropb}{date=20.09.2010 05:57}{thema=Возможно ли извлечение данных из firebird базы с помощью vb?}{post}... По поиску на форуме слова firebird не находится не одной темы...{/post}{/quote}  
А "погуглить" - "форумы по firebird" не пробовали?.. Будете приятно удивлены.  
Z.{/post}{/quote}  
пробовал... подходящего не находил...

я думал как-то через vb её надо открыть и делать SQL запросы... а открыть в экселе - этот формат эксель не знает... открывается с кряказябрами...

в смысле попробовать открыть? как? если не получится, то да... придется придумывать выгрузку в эксель... но удобнее конечно же сразу из экселя с помощью vb выгрузить данные из базы, чтобы потом с этими данными продолжать работать в экселе...

база в формате *.fdb

Возможно ли извлечение данных из firebird базы с помощью vb?  
По поиску на форуме слова firebird не находится не одной темы...

супер!  
работают оба кода!  
Спасибо!

смысл в том, что активная ячейка может быть в любом месте... в диапазоне от столбца A до U(не включая U)

{quote}{login=Юрий М}{date=09.04.2010 04:40}{thema=}{post}Так это зависит от того, где активная ячейка - левее или правее заданного столбца.{/post}{/quote}  
если бы я знал куда тыкнет пользователь, то проблем бы не было)

Например: ActiveCell.Offset(0, -1).Select 'это передвижение от активной ячейки на одну ячейку влево на то же строке.  
А как передвинуться от ActiveCell до столбца U, к примеру, на той же строке?

Всем спасибо за помощь!!!  
Помог макрос от The_prist

во я затупил, блин!  
ща потестирую и отвечу...

{quote}{login=vikttur}{date=08.04.2010 09:12}{thema=}{post}Движок съел часть формата :)  
После решеток пробел (или два).{/post}{/quote}  
формат работает только при вводе, а когда данные уже есть - они не меняются... или я ошибаюсь? во всяком случае у меня именно так(

{quote}{login=Dophin}{date=08.04.2010 10:00}{thema=}{post}у меня все работает){/post}{/quote}  
Ну да, работат, если вручную вбивать в ячейки, но в моём случае данные не вбиваются, а втавляются с другой таблицы, которая приходит ко мне уже с косяками... и вот при вставке вылетает ошибка(((

{quote}{login=Dophin}{date=07.04.2010 07:06}{thema=Re: Re: }{post}{quote}{login=uropb}{date=07.04.2010 05:55}{thema=Re: }{post}{quote}{login=Dophin}{date=07.04.2010 05:21}{thema=}{post}Private Sub Worksheet_Change(ByVal Target As Range)  
If Target = [d2] Then 'вместо d2 свою ячейку
If Len(Target) > 10 Then  
Target = ""  
MsgBox "Пшел нафег, больше 10 низя"  
End If  
End If  
End Sub  
 
вставлять в модуль листа (правой мыши по ярлычку листа - исходный текст){/post}{/quote}  
 
вставляю свою ячейку вместо d2  - ошибка при выполнении макроса  
показывает строку "If Target = [d2] Then 'вместо d2 свою ячейку"{/post}{/quote}
 
выложите Ваш измененный код) а лучшей файл с ним{/post}{/quote}  
файл с вашим кодом (и с кодом, который ниже от The_prist)

{quote}{login=vikttur}{date=07.04.2010 06:01}{thema=}{post}=ПСТР(A1;1;10)  
=ЛЕВСИМВ(A1;10)  
С последующей заменой данных на исправленные.  
Может, все проще - форматом отобразить нужное количество при неизменных данных?{/post}{/quote}  
С форматом не совсем понял, что можно сделать?

а формат не помогает

{quote}{login=vikttur}{date=07.04.2010 06:01}{thema=}{post}=ПСТР(A1;1;10)  
=ЛЕВСИМВ(A1;10)  
С последующей заменой данных на исправленные.  
Может, все проще - форматом отобразить нужное количество при неизменных данных?{/post}{/quote}  
Блин! А ведь это тоже вариант. Я думал, что формула мне не поможет... будет неудобно (много ручной работы)... количество таких ячеек с датами всегда меняется (может и больше 20000 быть), но если одним макросом не получится, то выбирать не приходится...

{quote}{login=vikttur}{date=07.04.2010 05:54}{thema=}{post}Это как? Проверить длину и сообщить?{/post}{/quote}  
проверить длину и обрезать лишнее, если можно

{quote}{login=Dophin}{date=07.04.2010 05:21}{thema=}{post}Private Sub Worksheet_Change(ByVal Target As Range)  
If Target = [d2] Then 'вместо d2 свою ячейку
If Len(Target) > 10 Then  
Target = ""  
MsgBox "Пшел нафег, больше 10 низя"  
End If  
End If  
End Sub  
 
вставлять в модуль листа (правой мыши по ярлычку листа - исходный текст){/post}{/quote}  
 
вставляю свою ячейку вместо d2  - ошибка при выполнении макроса  
показывает строку "If Target = [d2] Then 'вместо d2 свою ячейку"