powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как с помощи BAT команды печатать XLS файлы?
17 сообщений из 17, страница 1 из 1
Как с помощи BAT команды печатать XLS файлы?
    #38233294
Elmira_s1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Задача такая: Если в папке какой-то файл есть, должен этот файл печататься. Для Word это получается. А как это делать для Excel?

Помогите пожалуйста !

Сейчас меня интересуеть именно параметри Excel для печати. Они с Word-ами одинаковые, или нет?

Вот мой bat файл

test
for %%i in (*.*) do (
if %%~xi==.docx "C:\Program Files\Microsoft Office\Office14\winword.exe" "%%i" /q /n /mFilePrintDefault /mFileExit
if %%~xi==.xlsx "C:\Program Files\Microsoft Office\Office14\EXCEL.EXE" "%%i" /q /n /mFilePrintDefault /mFileExit
)
goto test



Задача обсуждалось здесь: (но пока не получается)
http://www.sql.ru/forum/actualthread.aspx?tid=1016292
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38234521
Elmira_s1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Помогите пожалуйста !
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38234555
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если верить сайту микрософта, у экселя (в отличие от ворда ) нет ключа для запуска макроса.

А обязательно ли использовать bat-файл? устроит ли вместо него vbs-файл?
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38234900
Elmira_s1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да, vbs-файл тоже можно, но я про vbs ничего незнаю.
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38235808
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim fso, objFolder, aFile, XL, WB
 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set objFolder = fso.GetFolder("c:\") 

Set XL = CreateObject("Excel.Application") 
 
For Each aFile In objFolder.Files 
  If Right(aFile.Name,3)="xls" Then
    Set WB=XL.Workbooks.Open(aFile.Path)
    WB.PrintOut
    WB.Close
  End If
Next 

XL.Quit
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38235921
Elmira_s1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro, спасибо.

И как мне запускать этот файл?

Аналогично можно печатать и *.doc файлы?
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38235985
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Elmira_s1И как мне запускать этот файл?так же, как и bat-файл, только расширение vbs
Elmira_s1Аналогично можно печатать и *.doc файлы?почти. Сделать вам в едином цикле или как отдельный файл?
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38236027
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.ProСделать вам в едином цикле или как отдельный файл?Не забудьте еще .pdf :))
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38236242
Elmira_s1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,

я хотела использувать Ваш код и делать в едином цикле для doc, pdf, cdr тоже, но у меня не получается.

И еще в bat я сделала как "автосторож" появления файлов в заданной папке и печать:

@echo off
:test
if exist d:\*.* goto go
sleep 10
goto test
:go

Можно это далать в VBS?
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38236311
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Elmira_s1в едином цикле
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Dim fso, objFolder, aFile, XL, WB, WRD, DC
 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set objFolder = fso.GetFolder("c:\") 

Set XL = CreateObject("Excel.Application") 
Set WRD = CreateObject("Word.Application") 
 
For Each aFile In objFolder.Files 
  If Right(aFile.Name,4)="xlsx" Then
    Set WB=XL.Workbooks.Open(aFile.Path)
    WB.PrintOut
    WB.Close
  End If
  If Right(aFile.Name,4)="docx" Then
    Set DC=WRD.Documents.Open(aFile.Path)
    DC.PrintOut
    DC.Close
  End If
Next 

XL.Quit
WRD.Quit

единственное - не проверял
Elmira_s1Можно это далать в VBS?можно
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38236477
Elmira_s1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro, СПАСИБО Вам. Отлично работает. А как "автосторож" можно делать?
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38236511
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Elmira_s1А как "автосторож" можно делать?ребят, напишите кто-нить, мне некогда сейчас рыться...
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38238055
Elmira_s1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Помогите пожалуйста !
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38238063
transpose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Elmira_s1,

запускайте vbs из вашего bat, вот вам и сторож.
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38245936
Elmira_s1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, все получается.
Я также сделала для разных версии (xls,xlsx, doc, docx) Office.
Но, не могу делать тоже самый для PDF файла. Как можно делать это и для PDF файла?
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38246403
hjkl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
Как с помощи BAT команды печатать XLS файлы?
    #38248922
Elmira_s1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Читала, но не могу делать.
Мне надо вот эта: для ECCELя пишутся:
Код: vbnet
1.
Set XL = CreateObject("Excel.Application") 


для WORDa пишутся:
Код: vbnet
1.
Set WRD = CreateObject("Word.Application")



а для PDF файла как будет?
...
Рейтинг: 0 / 0
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как с помощи BAT команды печатать XLS файлы?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]