Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как с помощи BAT команды печатать XLS файлы? / 17 сообщений из 17, страница 1 из 1
19.04.2013, 17:53
    #38233294
Elmira_s1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощи BAT команды печатать XLS файлы?
Задача такая: Если в папке какой-то файл есть, должен этот файл печататься. Для 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
22.04.2013, 06:59
    #38234521
Elmira_s1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощи BAT команды печатать XLS файлы?
Помогите пожалуйста !
...
Рейтинг: 0 / 0
22.04.2013, 09:08
    #38234555
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощи BAT команды печатать XLS файлы?
Если верить сайту микрософта, у экселя (в отличие от ворда ) нет ключа для запуска макроса.

А обязательно ли использовать bat-файл? устроит ли вместо него vbs-файл?
...
Рейтинг: 0 / 0
22.04.2013, 12:56
    #38234900
Elmira_s1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощи BAT команды печатать XLS файлы?
Да, vbs-файл тоже можно, но я про vbs ничего незнаю.
...
Рейтинг: 0 / 0
22.04.2013, 23:41
    #38235808
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощи BAT команды печатать XLS файлы?
Код: 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
23.04.2013, 07:09
    #38235921
Elmira_s1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощи BAT команды печатать XLS файлы?
Shocker.Pro, спасибо.

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

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

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

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

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

Можно это далать в VBS?
...
Рейтинг: 0 / 0
23.04.2013, 11:54
    #38236311
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощи BAT команды печатать XLS файлы?
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
23.04.2013, 13:15
    #38236477
Elmira_s1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощи BAT команды печатать XLS файлы?
Shocker.Pro, СПАСИБО Вам. Отлично работает. А как "автосторож" можно делать?
...
Рейтинг: 0 / 0
23.04.2013, 13:28
    #38236511
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощи BAT команды печатать XLS файлы?
Elmira_s1А как "автосторож" можно делать?ребят, напишите кто-нить, мне некогда сейчас рыться...
...
Рейтинг: 0 / 0
24.04.2013, 13:06
    #38238055
Elmira_s1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощи BAT команды печатать XLS файлы?
Помогите пожалуйста !
...
Рейтинг: 0 / 0
24.04.2013, 13:09
    #38238063
transpose
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощи BAT команды печатать XLS файлы?
Elmira_s1,

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


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



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


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