Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Путь сохранение файла должен определяться пользователем, а название файла определено / 4 сообщений из 4, страница 1 из 1
18.03.2010, 11:41
    #36527858
Lola1
Lola1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Путь сохранение файла должен определяться пользователем, а название файла определено
Помогите пожалуйста новичку. Мне нужно импортировать данные с Excel в текстовый файл (это я сделала), но место сохранения файла (путь) должен выбрать пользователь. Как это сделать?
И ещё, большая просьба, подскажите хороший электронный учебник по VBA.
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.03.2010, 11:56
    #36527916
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Путь сохранение файла должен определяться пользователем, а название файла определено
Lola1,

хороший учебник имхо тут http://www.firststeps.ru/, но лучше чем на этом форуме Вас не научат.

Только вопросы корректнее задавайте.

Вы вероятно имеете таблицу в Excel, по определенному действию от пользователя (какому) Вы делаете экспорт таблицы в TXT/CSV файл (как? через специальное сохранение) и в этот момент Вы бы хотели чтобы пользователь указал (через поиск папки/ручной ввод? ) место хранения (и имя?) файла.

А то какой вопрос такой и ответ
на Ваш вопрос ответ - через диалоговую форму.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.03.2010, 12:41
    #36528092
Lola1
Lola1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Путь сохранение файла должен определяться пользователем, а название файла определено
Да, Shamanus, я имею таблицу в Excel, по нажатию кнопки, пользователь делает экспорт данных в TXT и в этот момент я бы хотела чтобы пользователь выбрал папку (через поиск) для сохранения файла с именем new_routes.txt
Private Sub CommandButton1_Click()
Dim FileName As String
Dim r As Long, NumRows As Long
Dim c As Integer, NumCols As Integer
Dim strTxt As String
FileName = "C:\new_routes.txt" - раньше я прописывала полное имя файла, а сейчас мне нужно, чтобы пользователь сам выбирал путь для сохранения файла «new_routes.txt»

Open FileName For Output As #1
NumRows = 3
Do While Cells(NumRows + 1, 6) <> ""
NumRows = NumRows + 1
Loop
For r = 3 To NumRows
..........................................
..........................................
Print #1, strTxt
Next
Close #1
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.03.2010, 13:29
    #36528304
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Путь сохранение файла должен определяться пользователем, а название файла определено
Lola1Да, Shamanus, я имею таблицу в Excel, по нажатию кнопки, пользователь делает экспорт данных в TXT и в этот момент я бы хотела чтобы пользователь выбрал папку (через поиск) для сохранения файла с именем new_routes.txt
Private Sub CommandButton1_Click()
Dim FileName As String
Dim r As Long, NumRows As Long
Dim c As Integer, NumCols As Integer
Dim strTxt As String
FileName = "C:\new_routes.txt" - раньше я прописывала полное имя файла, а сейчас мне нужно, чтобы пользователь сам выбирал путь для сохранения файла «new_routes.txt»

Open FileName For Output As #1
NumRows = 3
Do While Cells(NumRows + 1, 6) <> ""
NumRows = NumRows + 1
Loop
For r = 3 To NumRows
..........................................
..........................................
Print #1, strTxt
Next
Close #1
End Sub


Создайте вот такую функцию

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Function GetPathToFolder() As String
Dim fd As FileDialog    ' объявляем переменную типа диалог

Set fd = Application.FileDialog(msoFileDialogFolderPicker)  ' вызываете диалог выбора папки
fd.ButtonName = "Выбрать"          'название кнопки выбора
fd.Title = "Выберите куда сохранить файл new_routes.txt"          'название диалога

If fd.Show = - 1  Then
    GetPathToFolder = fd.SelectedItems( 1 )            'первый выбранный каталог
Else
    Exit Function
End If
Set fd = Nothing   ' очищаем переменную

End Function


использовать в коде можно так


Код: plaintext
1.
2.
3.
4.
FileName = "new_routes.txt"
FilePath = GetPathToFolder

If FilePath="" then FilePath="C:"
FullFileName= FilePath & "\" & FileName
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Путь сохранение файла должен определяться пользователем, а название файла определено / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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