Страница 2 из 2
Добавлено: Сб дек 19, 2009 00:23
Andrey_A
И у меня весь ворлдовский портабл 2003 и 2007 работает , но скрипт выдаёт ошибку. Может дело в системе? я её только поставил, хотя другие скрипты пашут. Зов о помощи - все кто имеет World Portable протестируйте скрипт, давайте вместе разбирёмся!!!
Добавлено: Сб дек 19, 2009 02:04
Rodny
Andrey_A
Portable-софт работает внутри своей закрытой виртуальной среды. В том числе и VBA редактор.
Я сильно сомневаюсь, что реально заставить этот скрипт взаимодействовать с Excel Portable.
И ещё подозреваю, что vbs от Batya здесь также бессилен.
Добавлено: Пн дек 21, 2009 21:38
Andrey_A
Да действительно скрипт от Batya тоже выдал ошибка, пришлось мне устанавливать World 2009, и всё заработало, копируется и со второго листа! Всем спасибо!
Добавлено: Ср апр 03, 2013 15:26
Nicola777
Доброго времени суток!
Подскажите пож-та! Необходимо из документа 123.xlsm
скопировать первый столбец в файл 123.txt находящийся в папке "room"!
Нашел такую функцию:
Добавление в текстовый файл из переменной:
Function AddIntoTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
On Error Resume Next: Err.Clear
Set fso = CreateObject("scripting.filesystemobject")
Set ts = fso.OpenTextFile(filename, 8, True): ts.Write txt: ts.Close
Set ts = Nothing: Set fso = Nothing
AddIntoTXTfile = Err = 0
End Function
Добавлено: Пт май 03, 2013 00:21
Flasher
Nicola777
Пробуем:
Код: Выделить всё
'===================================================================================
' Назначение: создать текстовый файл с указанным столбцом файла Exel
' Параметры: "<путь к xls-файлу>" "<путь к новому txt-файлу>" <№ листа> <№ столбца>
' Пример: %V "%P%O.txt" 1 1
'===================================================================================
With WScript.Arguments
File = .Item(0) : NFile = .Item(1) : TNum = .Item(2) : CNum = .Item(3)
End With : Columns = Array("A","B","C","D","E","F","G","H","I","J",_
"K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
C = Columns(CNum-1) : Col = C & ":" & C : Set Con = CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & File & ";Extended Properties=Excel 8.0;"
Set Catalog = CreateObject("ADOX.Catalog") : Set Catalog.ActiveConnection = Con
Set Exe = Con.Execute("SELECT * FROM [" & Catalog.Tables(TNum-1).Name & Col & "]")
Text = Exe.GetString : CreateObject("Scripting.FileSystemObject").OpenTextFile(NFile, 2, True, -1)._
Write Exe.Fields(TNum-1).Name & vbCr & Left(Text, InStr(Text, vbCr & vbCr) - 1)
CreateObject("WScript.Shell").SendKeys "^R"
Set Catalog = Nothing : Set Exe = Nothing : Con.Close : Set Con = Nothing