Добрый день Порылся весь вечер в нете толкового ничего не нашел, нужно скопировать файл и вставить по заданному мною пути, после выхода диалогового окна дошел как выбрать файл, но не понял и не нашел как скопировать его и отправить по заданному пути, прошу помощи.
Добрый день Порылся весь вечер в нете толкового ничего не нашел, нужно скопировать файл и вставить по заданному мною пути, после выхода диалогового окна дошел как выбрать файл, но не понял и не нашел как скопировать его и отправить по заданному пути, прошу помощи.Asretyq
Копируемые файлы должны быть закрыты (иначе будет ошибка).
[vba]
Код
Sub Лист1_Кнопка1_Щелчок()
Dim arrFiles(), strFolder As String Dim i As Long
With Application.FileDialog(msoFileDialogFilePicker) If .Show = 0 Then Exit Sub ReDim arrFiles(1 To .SelectedItems.Count) For i = 1 To .SelectedItems.Count arrFiles(i) = .SelectedItems(i) Next i End With With Application.FileDialog(msoFileDialogFolderPicker) If .Show = 0 Then Exit Sub strFolder = .SelectedItems(1) End With
For i = 1 To UBound(arrFiles) FileCopy arrFiles(i), strFolder & "\" & Dir(arrFiles(i)) Next i
End Sub
[/vba]
Копируемые файлы должны быть закрыты (иначе будет ошибка).
[vba]
Код
Sub Лист1_Кнопка1_Щелчок()
Dim arrFiles(), strFolder As String Dim i As Long
With Application.FileDialog(msoFileDialogFilePicker) If .Show = 0 Then Exit Sub ReDim arrFiles(1 To .SelectedItems.Count) For i = 1 To .SelectedItems.Count arrFiles(i) = .SelectedItems(i) Next i End With With Application.FileDialog(msoFileDialogFolderPicker) If .Show = 0 Then Exit Sub strFolder = .SelectedItems(1) End With
For i = 1 To UBound(arrFiles) FileCopy arrFiles(i), strFolder & "\" & Dir(arrFiles(i)) Next i
Karataev, Класс, вот только можно путь вставки файла указать самому, а не через диалоговое окно, например в коде прописать путь. Пока что тяжело понимаю работу с файлами
Karataev, Класс, вот только можно путь вставки файла указать самому, а не через диалоговое окно, например в коде прописать путь. Пока что тяжело понимаю работу с файламиAsretyq
Текст должен быть или в переменной, или в кавычках Или так [vba]
Код
'With Application.FileDialog(msoFileDialogFolderPicker)'не нужно ' If .Show = 0 Then Exit Sub'не нужно 'strFolder = .SelectedItems(1)'не нужно ' End With'не нужно strFolder = "C:" For i = 1 To UBound(arrFiles) FileCopy arrFiles(i), strFolder & "\" & Dir(arrFiles(i)) Next i
[/vba] Или так [vba]
Код
'With Application.FileDialog(msoFileDialogFolderPicker)'не нужно ' If .Show = 0 Then Exit Sub'не нужно 'strFolder = .SelectedItems(1)'не нужно ' End With'не нужно
For i = 1 To UBound(arrFiles) FileCopy arrFiles(i), "C:\" & Dir(arrFiles(i)) Next i
Текст должен быть или в переменной, или в кавычках Или так [vba]
Код
'With Application.FileDialog(msoFileDialogFolderPicker)'не нужно ' If .Show = 0 Then Exit Sub'не нужно 'strFolder = .SelectedItems(1)'не нужно ' End With'не нужно strFolder = "C:" For i = 1 To UBound(arrFiles) FileCopy arrFiles(i), strFolder & "\" & Dir(arrFiles(i)) Next i
[/vba] Или так [vba]
Код
'With Application.FileDialog(msoFileDialogFolderPicker)'не нужно ' If .Show = 0 Then Exit Sub'не нужно 'strFolder = .SelectedItems(1)'не нужно ' End With'не нужно
For i = 1 To UBound(arrFiles) FileCopy arrFiles(i), "C:\" & Dir(arrFiles(i)) Next i
Уважаемые модераторы знаю, скажете что нужна новая тема, хочу допилить код, не умею выводить имена в ячейки Где-то здесь что-то не так делаею [vba]
Код
Cells(38 + i, 14) = Application.GetOpenFilename(i)
[/vba]
[vba]
Код
With Application.FileDialog(msoFileDialogFilePicker) .ButtonName = "Добавить прилагаемые" If .Show = 0 Then Exit Sub ReDim arrFiles(1 To .SelectedItems.Count) For i = 1 To .SelectedItems.Count arrFiles(i) = .SelectedItems(i) Next i End With
For i = 1 To UBound(arrFiles) FileCopy arrFiles(i), q & Dir(arrFiles(i)) Cells(38 + i, 14) = Application.GetOpenFilename(i) Next i
[/vba]
Уважаемые модераторы знаю, скажете что нужна новая тема, хочу допилить код, не умею выводить имена в ячейки Где-то здесь что-то не так делаею [vba]
Код
Cells(38 + i, 14) = Application.GetOpenFilename(i)
[/vba]
[vba]
Код
With Application.FileDialog(msoFileDialogFilePicker) .ButtonName = "Добавить прилагаемые" If .Show = 0 Then Exit Sub ReDim arrFiles(1 To .SelectedItems.Count) For i = 1 To .SelectedItems.Count arrFiles(i) = .SelectedItems(i) Next i End With
For i = 1 To UBound(arrFiles) FileCopy arrFiles(i), q & Dir(arrFiles(i)) Cells(38 + i, 14) = Application.GetOpenFilename(i) Next i