Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Имя файла в файле / 12 сообщений из 12, страница 1 из 1
24.02.2015, 11:36
    #38886939
sabitaidr
sabitaidr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имя файла в файле
Добрый день, есть скрипт небольшой, который делает некоторые действия с excel файлом и сохраняет его потом в текстовый файл.
В данном скрипте берется файл 1.xlsx. Возможно ли сделать, чтобы он брал файл, который лежит в папке реестр, но название может быть разным? то есть не жестко прописывать файл, а чтобы он брал любой файл в этой директории
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Set XL = CreateObject("Excel.Application")
Set WB = XL.Workbooks.Open("c:\реестр\1.xlsx")
Set WS = WB.Worksheets(1)
   WS.Rows("1:2").Delete 
    ws.Columns("A:I").Delete 
    ws.Columns("D:D").Delete 
    ws.Range("A1").FormulaR1C1 = "OGRN"
    ws.Range("B1").FormulaR1C1 = "Name"
    ws.Range("C1").FormulaR1C1 = "Brief"
	 xl.displayalerts=false
	WB.SaveAs "C:\реестр.txt", -4158
     WB.Close 0 'закрыть без сохранения
    XL.Quit
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 11:40
    #38886947
RWolf
RWolf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имя файла в файле
а если в папке два файла?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 11:42
    #38886951
sabitaidr
sabitaidr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имя файла в файле
RWolf, хочу создать батник, который будет очищать эту директорию, потом копировать туда нужный файл и выполнять этот скрипт. Будем следить, чтобы был один файл.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 12:14
    #38887012
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имя файла в файле
А кто мешает получить список файлов каталога? причём вариантов реализации - вагон и маленькая тележка, начиная от вульгарной Dir() и заканчивая API-функциями чтения содержимого каталога...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 12:16
    #38887018
sabitaidr
sabitaidr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имя файла в файле
Akina, вопрос как его в vbscript закинуть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 12:17
    #38887020
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имя файла в файле
Код: vbnet
1.
XL.Workbooks.Open(Dir("c:\реестр\*.xlsx"))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 12:25
    #38887037
sabitaidr
sabitaidr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имя файла в файле
Shocker.Pro, "несоответствие типа Dir" выходит это
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 13:29
    #38887127
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имя файла в файле
sabitaidrShocker.Pro, "несоответствие типа Dir" выходит этоа, похоже, Dir не поддерживается VBScript....

Ну а сами-то вы можете приложить хоть какие-то усилия?
Например, открыть Яндекс и вбить туда "VBScript список файлов"

А то мы так и будем за вас вашу программу писать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 20:47
    #38887696
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имя файла в файле
sabitaidrAkina, вопрос как его в vbscript закинуть.
Сохраните этот скрипт как .vbs и в Проводнике перетягивайте на него файлы, папки.
Код: vbnet
1.
2.
3.
4.
5.
dim a, s
for each a in wscript.arguments
  s=s & a & vblf
next
msgbox s
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.02.2015, 11:52
    #38888207
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имя файла в файле
sabitaidrвопрос как его в vbscript закинуть.Его - это кого? Если имя из комстроки - то уже сказано, через wscript.arguments. Если перебрать файлы в каталоге - см. filesystemobject.getfolder(folder).files.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.02.2015, 13:47
    #38888415
alex77755
alex77755
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имя файла в файле
автор"несоответствие типа Dir" выходит это
так посмотри что возвращает Dir
Код: vbnet
1.
MsgBox Dir("c:\реестр\*.xlsx")


Там же только короткое имя файла без пути.
попробуй как-то так
Код: vbnet
1.
XL.Workbooks.Open ("c:\реестр\" & Dir("c:\реестр\*.xlsx"))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.02.2015, 13:49
    #38888420
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Имя файла в файле
alex77755Там же только короткое имя файла без пути.упс, это я лоханулся, прошу прощения
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Имя файла в файле / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 153ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2156016]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 48ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 12ms
total:  153ms
x
x
Закрыть


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