копирование файла

[Artur KakTus]

Здравствуйте, есть вопрос. Я пытаюсь создать переименованную копию файла в тойже папке, что и исходный файл.
Ничего пока не получается. И мало того, я попытался из VBA просто скопировать файл в другую папку - ничего не получилось, листинг примерно такой:

d = thisworkbook.path
f = d & thisworbook.name

filecopy d, "C:\"

/пробывал filecopy d, "C:\имя файла"

Правда всегда пробывал имя отличное от исходного

' Ничего не пойму, получаю ошибку 73 или 75 или 75 - нет доступа, папка не найдена и т.д. Главное в у меня правильный путь и имя правильные получаются

В общем...если не сложно вталкуйте.....есть подозрения что имена должны совпадать, но сел постить в форуме.

А вобще ИНТЕРЕСУЕТ - копирование файла с переименованием в одной папке. Остановился на filecopy, т.к. в двух книжках примеры приведены с разными именами файла (исх. и кон.).

П.С. /Спасибо, простите за тупые вопросы...но опять судьба посадила за ВБ

[Artur KakTus]

Попробывал

filecopy "С:\1.txt", "C:\2.txt"

все получается!!, НО ПОЧЕМУ тогда не получается с рабочей книхой
как я понимаю синтаксис может быть :

filecopy fg, gh

где fg, gh - строковые переменные....

млин не засну

[K.Sergey]

FileCopy не может скопировать открытую книгу. Судя по d = thisworkbook.path, у тебя именно в этом проблема.

[K.Sergey]

Точнее не только книгу, а любой открытый файл:
If you try to use the FileCopy statement on a currently open file, an error occurs (из справки).

[Artur KakTus]

2K.Sergey, спасибо камрад

Я так и понял, запостил на форуме и попробывал с другими книгами - все ОК. Мне, в принципе и надо было не открытую книгу копировать, просто пробывал на открытой.

Жалко, что нельзя открытые книги копировать, т.к. по идее это не редактирование и операция должна происходить успешно. (взять тотже проводник винды ))

В принципе топик исчерпан... Еще раз спасибо.

[K.Sergey]

Меня по этому же поводу WinRar бесит - постоянно ругается, что не может добавить файл в архив, т.к. он открыт. И ICQ не может передавать открытый файл. Полный отстой...

[alibek]

Меня по этому же поводу WinRar бесит - постоянно ругается, что не может добавить файл в архив, т.к. он открыт. И ICQ не может передавать открытый файл. Полный отстой...

Советую не беситься, а почитать про ключик -dh.

[Ig]

Либо я че-то непоняв, либо одно из двух.
Как это:

...нельзя открытые книги копировать...

Код: Выделить всё


Private Sub WrkbCopy()
Dim objFlDlg As Object
Dim strFlNm As String

Set objFlDlg = Application.FileDialog(msoFileDialogSaveAs)
strFlNm = "It is Me"
With objFlDlg
.AllowMultiSelect = False
.Title = "Выберите папку для сохранения"
.FilterIndex = 1
.InitialFileName = strFlNm
If .Show = -1 Then
  strFlNm = .SelectedItems(1)
  ActiveWorkbook.SaveCopyAs strFlNm
End If
End With
End Sub


Сия процедура вызывает диалоговое окно сохранения файла и сохраняет его копию в выбранном Вами месте.

P.S. Кстати, у форума (и не только этого) есть замечательная фича специяльно для новичков.
Советую попробовать, бо многим помогает.

[Al Khamid]

"""

[K.Sergey]

Либо я че-то непоняв, либо одно из двух.
.......
Сия процедура вызывает диалоговое окно сохранения файла и сохраняет его копию в выбранном Вами месте.

P.S. Кстати, у форума (и не только этого) есть замечательная фича специяльно для новичков.
Советую попробовать, бо многим помогает.

А я советую вначале в суть вопроса вникнуть, а не острить предложениями в хэлп лезть, т.к. ты действительно "че-то непоняв".
Вопрос НЕ стоял в том как сохранить открытую книгу под другим именем (это тривиально - записывается с помощью макроса), а почему FileCopy отказывается работать в данном конкретном случае. Проблему, как можно видеть выше, уже выяснили и тема исчерпана.

[Ig]

Досточтимый сударь, вообще-то Вы - не автор вопроса.
И, если я его (автора) действительно оскорбил, то, повертьте, в случае предъявления претензий с его стороны, меня не поломает перед ним извиниться.

Кроме того, для подобного рода перепалок существует другой форум ("Народный треп" ) или, на худой конец, "личка". И я только потому отвечаю Вам здесь, что дело касается третьей стороны.

За сим, данный вопрос действительно считаю исчерпанным.

С уважением. Игорь