ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Save as
24 сообщений из 24, страница 1 из 1
Save as
    #38258996
Dmitry12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry12345
Гость
Народ, добрового времени суток!
Погомите, пожалуйста, с простеньким макросом (я так думаю). Необходимо чтобы файл с помощью макроса сохранялся в определённую папку изначально с именем файла "1.xls", а последующие файлы сохранялись как "2.xls", "3.xls", "4.xls" т.е. по нарастающей.
Сам в макросах плохо разбираюсь.
...
Рейтинг: 0 / 0
15.05.2013, 18:29
| Ответить | Цитировать | Написать  
Save as
    #38259009
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
ThisWorkbook.SaveAs CStr(Val(ThisWorkbook.Name)+1)
...
Рейтинг: 0 / 0
15.05.2013, 18:40
| Ответить | Цитировать | Написать  
Save as
    #38259048
Dmitry12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry12345
Гость
Shocker.Pro,
Ура :) Спасибо!
...
Рейтинг: 0 / 0
15.05.2013, 19:03
| Ответить | Цитировать | Написать  
Save as
    #38259094
Dmitry12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry12345
Гость
Shocker.Pro,
Блин, всё равно немного не так :( При открытии файла с другим именем эксель ругается, что в папке уже существует файл "1.xls" , а мне надо чтобы он продолжал нумерацию с последнего сохраненого в папке "9.xls"
...
Рейтинг: 0 / 0
15.05.2013, 19:52
| Ответить | Цитировать | Написать  
Save as
    #38259122
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Dmitry12345,

перебирайте циклом файлы в папке и ищите максимальный.
...
Рейтинг: 0 / 0
15.05.2013, 20:14
| Ответить | Цитировать | Написать  
Save as
    #38259151
Dmitry12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry12345
Гость
The_Prist,
Подскажите, пожалуйста, как? Я ламер в вба
...
Рейтинг: 0 / 0
15.05.2013, 20:37
| Ответить | Цитировать | Написать  
Save as
    #38259153
Dmitry12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry12345
Гость
The_Prist,
Подскажите, пожалуйста, как? Я ламер в вба
...
Рейтинг: 0 / 0
15.05.2013, 20:39
| Ответить | Цитировать | Написать  
Save as
    #38259161
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Dmitry12345, примерно так. Не проверял - писал "на коленке"

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String, lMax as long,lCnt as long
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
        lCnt = Val(sFiles)
        if lMax < lCnt then lMax = lCnt
        sFiles = Dir
    Loop
    ThisWorkbook.SaveAs CStr(lMax+1) & ".xls",vbnormal
End Sub
...
Рейтинг: 0 / 0
15.05.2013, 20:49
| Ответить | Цитировать | Написать  
Save as
    #38261644
Dmitry12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry12345
Гость
The_Prist,
Открывается окно "обзор" и просит ввести имя папки :(
...
Рейтинг: 0 / 0
17.05.2013, 11:47
| Ответить | Цитировать | Написать  
Save as
    #38261656
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Dmitry12345,

а выбрать папку в которой эти файлы не судьба, что ли? Вы же написали - в определенную папку. Я что, должен догадаться какая для Вас определенная и в какой у Вас файлы? :)
Вместо
Код: vbnet
1.
2.
3.
4.
With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = False Then Exit Sub
    sFolder = .SelectedItems(1)
End With


пропишите
Код: vbnet
1.
sFolder = "здесь в кавычках полный путь к папке с файлами, включая слеш"
...
Рейтинг: 0 / 0
17.05.2013, 11:55
| Ответить | Цитировать | Написать  
Save as
    #38261740
Dmitry12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry12345
Гость
The_Prist,
Всё равно окошко открывается :(
...
Рейтинг: 0 / 0
17.05.2013, 12:35
| Ответить | Цитировать | Написать  
Save as
    #38262265
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Dmitry12345,

Да как оно может открываться, если блок выбора папки заменили на одну строку с точным путем к ней?! Или это я написал, что надо заменить, но Вы этого не сделали? Напишите-ка, что у Вас там получилось. Вот по моим расчетам должно было так получиться(специально для особо ленивых):
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String, lMax as long,lCnt as long
    sFolder = "C:\Папка с файлами\" 'здесь в кавычках полный путь к папке с файлами
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
        lCnt = Val(sFiles)
        if lMax < lCnt then lMax = lCnt
        sFiles = Dir
    Loop
    ThisWorkbook.SaveAs CStr(lMax+1) & ".xls",vbnormal
End Sub



P.S. Хоть немного начните изучать VBA. А то Вам уж и код дали, и подсказку как без диалога, а воз и ныне там.
...
Рейтинг: 0 / 0
17.05.2013, 15:54
| Ответить | Цитировать | Написать  
Save as
    #38262384
Dmitry12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry12345
Гость
The_Prist,
Я и так и сяк пробовал :) Либо окошко открывается, либо runtime error 1004
Это возможно у меня библиотека какая-то не подключена?
...
Рейтинг: 0 / 0
17.05.2013, 16:45
| Ответить | Цитировать | Написать  
Save as
    #38262424
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Dmitry12345,

Т.е. я тут буду Вам коды писать, варианты выдавать, гадать где ошибка... А Вы тупо ждать моих новых идей? Я Вас попросил - покажите, что у Вас за код получился! sFolder чему равна? На какой строке ошибка? Неужели сложно догадаться, что помимо того, что сказать "болит!" необходимо сказать ГДЕ .
...
Рейтинг: 0 / 0
17.05.2013, 17:06
| Ответить | Цитировать | Написать  
Save as
    #38262446
Dmitry12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry12345
Гость
The_Prist,
Код:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String, lMax As Long, lCnt As Long
    sFolder = "I:\PPM"
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
        lCnt = Val(sFiles)
        If lMax < lCnt Then lMax = lCnt
        sFiles = Dir
    Loop
    ThisWorkbook.SaveAs CStr(lMax + 1) & ".xls", vbNormal
End Sub


Ошибка сразу вылетает, скрин приатачил
...
Рейтинг: 0 / 0
17.05.2013, 17:19
| Ответить | Цитировать | Написать  
Save as
    #38262454
Dmitry12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry12345
Гость
Срин не атачится :(
http://images.yandex.ru/yandsearch?source=psearch&text=runtime error 1004&noreask=1&img_url=http://www.regmender.com/wp-content/uploads/2012/09/runtime-error-1004.png&pos=1&rpt=simage&lr=87&nojs=1
...
Рейтинг: 0 / 0
17.05.2013, 17:26
| Ответить | Цитировать | Написать  
Save as
    #38262599
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Dmitry12345,

Что значит сразу? И редактор ничего не подсвечивает, не выделяет? Тогда я бессилен. Сам только что код проверил - все работает.
...
Рейтинг: 0 / 0
17.05.2013, 18:55
| Ответить | Цитировать | Написать  
Save as
    #38262704
Dmitry12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry12345
Гость
...
Рейтинг: 0 / 0
17.05.2013, 20:03
| Ответить | Цитировать | Написать  
Save as
    #38262710
Dmitry12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry12345
Гость
The_Prist,
При запуске вылетает сразу, не подсвечивая ничего :) Спасибо Вам за помощь и гемор со мной! Ушёл вешаться :)
...
Рейтинг: 0 / 0
17.05.2013, 20:08
| Ответить | Цитировать | Написать  
Save as
    #38262714
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Где код расположен? Как вызываете код?
Повторю - сам код рабочий. Проблема не в нем, а в файле или в методе вызова процедуры. Возможно вызывается по событию Change или по подключению данных.
...
Рейтинг: 0 / 0
17.05.2013, 20:12
| Ответить | Цитировать | Написать  
Save as
    #38262720
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Кстати...книга, случаем, не в общем доступе?
Попробуйте изменить код так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String, lMax As Long, lCnt As Long, lDefFileFormat as long
    lDefFileFormat = Application.DefaultSaveFormat
    Application.DefaultSaveFormat = xlNormal
    sFolder = "I:\PPM"
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
        lCnt = Val(sFiles)
        If lMax < lCnt Then lMax = lCnt
        sFiles = Dir
    Loop
    ThisWorkbook.SaveAs CStr(lMax + 1) & ".xls", vbNormal, , , , , xlNoChange
    Application.DefaultSaveFormat = lDefFileFormat
End Sub
...
Рейтинг: 0 / 0
17.05.2013, 20:17
| Ответить | Цитировать | Написать  
Save as
    #38262731
Dmitry12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry12345
Гость
The_Prist,
Чисто для проверки беру открываю новую книгу, жму ALT+F11, вставляю код в ThisWorkиook, жму F5 и сразу вылетает эта ошибка. У второго кода та же ошибка
...
Рейтинг: 0 / 0
17.05.2013, 20:32
| Ответить | Цитировать | Написать  
Save as
    #38262761
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Пробуйте. Закомментированные строки и части строк на самом деле не нужны.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String, lMax As Long, lCnt As Long ', lDefFileFormat As Long
'    lDefFileFormat = Application.DefaultSaveFormat
'    Application.DefaultSaveFormat = xlNormal
    sFolder = "с:\temp"
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
        lCnt = Val(sFiles)
        If lMax < lCnt Then lMax = lCnt
        sFiles = Dir
    Loop
    ThisWorkbook.SaveAs sFolder & CStr(lMax + 1) & ".xls", xlWorkbookNormal, , , , , xlNoChange
'    Application.DefaultSaveFormat = lDefFileFormat
End Sub



Убедитесь, что путь, заданный в строке sFolder = "с:\temp" , существует.
...
Рейтинг: 0 / 0
17.05.2013, 21:09
| Ответить | Цитировать | Написать  
Save as
    #38263279
Dmitry12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry12345
Гость
Казанский,
Ура! Ура! Ура! Спасибо вам большое!
...
Рейтинг: 0 / 0
18.05.2013, 15:36
| Ответить | Цитировать | Написать  
24 сообщений из 24, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Save as
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38259153&tid=2174800]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 30ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 13ms
total:  131ms
созд. / загр.: 131ms
x
x
Закрыть


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