ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Имя файла в файле
12 сообщений из 12, страница 1 из 1
Имя файла в файле
    #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:36
| Ответить | Цитировать | Написать  
Имя файла в файле
    #38886947
RWolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RWolf
Участник
а если в папке два файла?
...
Рейтинг: 0 / 0
24.02.2015, 11:40
| Ответить | Цитировать | Написать  
Имя файла в файле
    #38886951
sabitaidr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sabitaidr
Гость
RWolf, хочу создать батник, который будет очищать эту директорию, потом копировать туда нужный файл и выполнять этот скрипт. Будем следить, чтобы был один файл.
...
Рейтинг: 0 / 0
24.02.2015, 11:42
| Ответить | Цитировать | Написать  
Имя файла в файле
    #38887012
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
А кто мешает получить список файлов каталога? причём вариантов реализации - вагон и маленькая тележка, начиная от вульгарной Dir() и заканчивая API-функциями чтения содержимого каталога...
...
Рейтинг: 0 / 0
24.02.2015, 12:14
| Ответить | Цитировать | Написать  
Имя файла в файле
    #38887018
sabitaidr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sabitaidr
Гость
Akina, вопрос как его в vbscript закинуть.
...
Рейтинг: 0 / 0
24.02.2015, 12:16
| Ответить | Цитировать | Написать  
Имя файла в файле
    #38887020
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
XL.Workbooks.Open(Dir("c:\реестр\*.xlsx"))
...
Рейтинг: 0 / 0
24.02.2015, 12:17
| Ответить | Цитировать | Написать  
Имя файла в файле
    #38887037
sabitaidr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sabitaidr
Гость
Shocker.Pro, "несоответствие типа Dir" выходит это
...
Рейтинг: 0 / 0
24.02.2015, 12:25
| Ответить | Цитировать | Написать  
Имя файла в файле
    #38887127
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
sabitaidrShocker.Pro, "несоответствие типа Dir" выходит этоа, похоже, Dir не поддерживается VBScript....

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

А то мы так и будем за вас вашу программу писать.
...
Рейтинг: 0 / 0
24.02.2015, 13:29
| Ответить | Цитировать | Написать  
Имя файла в файле
    #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
24.02.2015, 20:47
| Ответить | Цитировать | Написать  
Имя файла в файле
    #38888207
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
sabitaidrвопрос как его в vbscript закинуть.Его - это кого? Если имя из комстроки - то уже сказано, через wscript.arguments. Если перебрать файлы в каталоге - см. filesystemobject.getfolder(folder).files.
...
Рейтинг: 0 / 0
25.02.2015, 11:52
| Ответить | Цитировать | Написать  
Имя файла в файле
    #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:47
| Ответить | Цитировать | Написать  
Имя файла в файле
    #38888420
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
alex77755Там же только короткое имя файла без пути.упс, это я лоханулся, прошу прощения
...
Рейтинг: 0 / 0
25.02.2015, 13:49
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Имя файла в файле
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38888207&tid=2156016]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 44ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 296ms
total:  435ms
созд. / загр.: 435ms
x
x
Закрыть


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