А я вот, пока набросал макрос для трансформации первых колонок в текст:
Цитата:

Sub formatnum()
....
End Sub

Как это написать красиво? Это мой первый шедевр на VBA.

Код

Sub formatnum()
    LastRow = Cells(1, 1).End(xlDown).Row
    Row = 1
    Do While Row <= LastRow
	  Col = 1
	  Do While Col <= 3
		v = Cells(Row, Col).Value
		If IsNumeric(v) Then
		    Cells(Row, Col).Value = "'" + CStr(v)
		End If
		Col = Col + 1
	  Loop

	  Row = Row + 1
    Loop
End Sub
 

Код

	_база =СоздатьОбъект("ODBCDatabase");
	Если _база.Соединение("DRIVER=Microsoft Excel Driver (*.xls); DBQ=" +СокрЛП(_имя)) =0 Тогда
		Предупреждение("Ошибка открытия файла", 60);
		Возврат;
	КонецЕсли;

	_рс =СоздатьОбъект("ODBCRecordSet");
	_рс.УстБД(_база);

	_стр ="
	|select *
	|from ИмяТаблицы
	|";

	_ит =СоздатьОбъект("ИндексированнаяТаблица");
	_рс.ВыполнитьИнструкцию(_стр, _ит); 

Код

	|from [ИмяТаблицы$ДиапазонЯчеек] 

Код

	|from [Лист1$A10:AZ]