Экспортирую лист excel в PDF.

       ActiveSheet.ExportAsFixedFormat _
               Type:=xlTypePDF, _
               Filename:=strFileName, _
               Quality:=xlQualityStandard, _
               IncludeDocProperties:=True, _
               IgnorePrintAreas:=False, _
               OpenAfterPublish:=True

Но на листе есть ячейки с переносом строк.
в Pdf, в соответствующих местах, появляется "квадратик" символа новой строки - chr(10).
Как от него избавиться, сохранив перенос строки?

Если просто отправить лист на принтер CreatePDF, то квадратик не появляется. Но мне надо через vba

тогда: Thank you very much, sir Egonomist!

собсвенно сабж.

Sub GetTableInfo()

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Set conn = New ADODB.Connection
Dim tbl As String
tbl = "Table1"

With conn
   .Provider = "Microsoft.ACE.OLEDB.12.0"
   .ConnectionString = "Data source=C:\MyDB.mdb"
   .Open
End With
Set rst = New ADODB.Recordset
rst.Open tbl, conn
For x = 0 To rst.Fields.Count - 1
    Range("A" & x + 3) = rst.Fields(x).Name
    Range("B" & x + 3) = rst.Fields(x).Type
     ' Range("C" & x + 3) = ???? ( как здесь определить является ли поле ключом таблицы?"
Next
rst.Close
conn.Close

Set rst = Nothing
Set conn = Nothing
End Sub

Пардоньте, забыл отчистить табл2 от повторов после экспериментов, повторений не должно быть.  
Со Словарями ранее не сталкивался - попробую разобраться. если знаете куда лучше посмотреть, буду благодарен за ссылку.  
 
Тем не менее вопрос открытый. Есть мысли почему это вроде работает в одном месте  
и не работает в другом? кривой excel установлен или может еще от чего-то выдавать ошибку? win7(x64)+off2010(x64) = ok , winSer2008RS(x64)+off2010x64 = не работает

и еще можно ли копировать не построчно а сразу всю часть таблиты 1 кроме строк которые уже существуют в архиве? а то по строчно догло на большом объеме

спасибо, пмогло , да не совсем.  
 
Дело в том что стоит изменить любую другую ячейку как срабатывает Combobox_Change  
и восстанавливает значение comboboxa  
Нельзя ли что бы это событие срабатывало только при изменении в самом комбобоксе.  
Не понимаю почему оно реагирует как Worksheet_Change

есть именованный диапазон (periods) имя/начальная дата/конечная  
есть ячейки нач_дата и кон_дата  
есть combobox прилинкованный к periods с событием    
Private Sub ComboBox1_Change()  
   [нач_дата] = ComboBox1.Column(1)
   [кон_дата] = ComboBox1.Column(2)
End Sub  
 
Событие срабатывает при изменении значения комбобокса но и при изменении в ячейках нач_дата или кон_дата, не давая поэтому прописать в них произвольное значение.  
 
как сделать так что бы в ячейки нач_дата и кон_дата можно было бы вставлять и произвольные значения?

запросил сам JustVoip  
сказали что возврат каретки (перенос строки)включить в http ссылку нельзя :(  
 
хотя у меня осталась ощущение, что они просто сами не знают... но да ладно

если вставить #x0a или #x0d  
 
типа text=aaa &bbb  
 
то обрезает сообщение на aaa  
 
#x000a #x000d - тот же результат  
 
либо я как-то не так эти # не так прописываю... помогите а

есть задача отправлять SMS с данными из таблицы  
(некая статистика по разным магазинам)  
 
решил с помощью сервиса JustVoip (www.justvoip.com), который позволяет отправлять  
sms с помощью https ссылки:  
 
https://www.justvoip.com/myaccount/sendsms.php?username=xxxxxxxxxx​&password=xxxxxxxxxx&from=xxxxxxxxxx&to=xxxxxxxxxx&text=xxxxxxxxxx  
 
 
Explanation of the variables:  
 
   username: your JustVoip username  
   password: your JustVoip password  
   from: your username or your verified phone number. Always use international format for the number starting with +, for instance +491701234567  
   to: the number you wish to send the sms to. Always use international format starting with +, for instance +491701234567  
   text: the message you want to send    
 
вроде все работает, но осталось пара вопросов  
 
как передать символ возврата корретки в адрес (для переноса строки в тексте sms)  
как передавать русские буквы  
 
может кто поможет?