Flasher
|
 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) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
