| View previous topic :: View next topic |
| Author |
Message |
Andrey_A
Joined: 10 Apr 2009
Posts: 394
Location: Сочи
|
 (Separately) Posted: Sat Dec 19, 2009 01:23 Post subject: |
 |
|
| И у меня весь ворлдовский портабл 2003 и 2007 работает , но скрипт выдаёт ошибку. Может дело в системе? я её только поставил, хотя другие скрипты пашут. Зов о помощи - все кто имеет World Portable протестируйте скрипт, давайте вместе разбирёмся!!! |
|
| Back to top |
|
 |
Rodny
Joined: 24 Jan 2007
Posts: 949
Location: Могилёв, Беларусь
|
| (Separately) Posted: Sat Dec 19, 2009 03:04 Post subject: |
|
|
Andrey_A
Portable-софт работает внутри своей закрытой виртуальной среды. В том числе и VBA редактор.
Я сильно сомневаюсь, что реально заставить этот скрипт взаимодействовать с Excel Portable.
И ещё подозреваю, что vbs от Batya здесь также бессилен. |
|
| Back to top |
|
|
Andrey_A
Joined: 10 Apr 2009
Posts: 394
Location: Сочи
|
| (Separately) Posted: Mon Dec 21, 2009 22:38 Post subject: |
|
|
| Да действительно скрипт от Batya тоже выдал ошибка, пришлось мне устанавливать World 2009, и всё заработало, копируется и со второго листа! Всем спасибо! |
|
| Back to top |
|
|
Nicola777
Joined: 03 Apr 2013
Posts: 1
|
| (Separately) Posted: Wed Apr 03, 2013 15:26 Post subject: |
|
|
Доброго времени суток!
Подскажите пож-та! Необходимо из документа 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 |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Fri May 03, 2013 00:21 Post subject: |
|
|
Nicola777
Пробуем:
| Code: | '===================================================================================
' Назначение: создать текстовый файл с указанным столбцом файла 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 |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
