привет Всем господа !
Надо создать новую книгу и сразу обозвать её
она почему то обзывается false.xls :) по моему приведенному коду
во как

Name_New = InputBox("Задайте имя создаваемой книги:", "Сохранение таблицы соответсвия во внешний файл", "TS.xls")
Application.Workbooks.Add
ActiveWorkbook.SaveAs Filename = Name_New


Jojo®

Как вызвать диалог сохранения ?
если диалог открытия

CommonDialog1.Filter = "Файлы Excel (*.xls)| *.xls" 'Фильтр для открытия файла
CommonDialog1.InitDir = "C:\"
CommonDialog1.Action = 1 'Или же CommonDialog1.ShowOpen

Jojo®

ShowSave
или
CommonDialog1.Action = 2
:)))

Jojo®

Не сохраняется ! :(
' Сохранение в файле

Application.Workbooks.Add
CommonDialog1.Filter = "Файлы Excel (*.xls)| *.xls" 'Фильтр для открытия файла
CommonDialog1.InitDir = "C:\"
CommonDialog1.Action = 2
CommonDialog1.Filename = "TS"

Jojo®

Во все сохраняется :)
Application.Workbooks.Add

CommonDialog1.Filter = "Файлы Excel (*.xls)| *.xls" 'Фильтр для открытия файла
CommonDialog1.InitDir = "C:\"
CommonDialog1.Action = 2 'Или же CommonDialog1.ShowOpen
ActiveWorkbook.SaveAs CommonDialog1.Filename


Jojo®

Спрашиваю
Надо скопировать 1 лист в другой файл
не работает:

Private Sub CB_Save_Click()

' Сохранение в файле

'Name_New = InputBox("Задайте имя создаваемой книги:", "Сохранение таблицы соответствия во внешний файл", "TS.xls")
Application.Workbooks.Add
With CommonDialog1
.Filter = "Файлы Excel (*.xls)| *.xls" 'Фильтр для открытия файла
.InitDir = "C:\"
.Action = 2
End With
ActiveWorkbook.SaveAs CommonDialog1.Filename
TS_Save = CommonDialog1.Filename
Workbooks("osv.xls").Activate
Workbooks("osv.xls").Worksheets("Таблица соответствия").Select
Sheets("Таблица соответствия").Copy Before:=Workbooks(TS_Save).Sheets(4)
Workbooks(TS_Save).Activate
ActiveWorkbook.Close SaveChanges, CommonDialog1.Filename

End Sub

End Sub



Jojo®

Неа не отгадал :)
переменная TS_Save писалась как C:\ts.xls, а нада чтоб просто ts.xls
теперь все работает, толькоп ришлось привязаться к имени, да так даже лучше для бухов :)) воо как :

Private Sub CB_Save_Click()

' Сохранение в файле

'Name_New = InputBox("Задайте имя создаваемой книги:", "Сохранение таблицы соответствия во внешний файл", "TS.xls")
Application.Workbooks.Add

With CommonDialog1
.Filter = "Файлы Excel (*.xls)| *.xls" 'Фильтр для открытия файла
.InitDir = "C:\"
.Action = 2
End With

CommonDialog1.Filename = "TS"
ActiveWorkbook.SaveAs CommonDialog1.Filename
TS_Save = "TS.xls"
Workbooks("osv.xls").Activate
Workbooks("osv.xls").Worksheets("Таблица соответствия").Select
Workbooks("osv.xls").Worksheets("Таблица соответствия").Copy Before:=Workbooks("ts.xls").Sheets(1)
Workbooks(TS_Save).Activate
ActiveWorkbook.Close SaveChanges, CommonDialog1.Filename

End Sub








Jojo®

странно у меня и с ней все работает

Jojo®

Да писал но ...решил что это примитивно и неудобно ...посмотрел ...не понравилось
и сделал то что ниже

Jojo®

я знаю этот синтаксис :)

Jojo®

ваще у меня приложение состоит из 2 файлов
одно главное настроек ...второе файл библитек алгоритмов ...и он невидим для пользователя...у бухов алгоритмы меняются каждый день ...

Jojo®

Подскажите
удаляю в одной книге лист, потом из другого файла вставляю лист с таким именем но с изменившимися данными- дак вот после этого первая книга становится неработоспособной :)))
Глюк на адрес памяти ...и так далее
во в чем проблема ?

Private Sub CB_Load_Click()
' Загрузка из файла
With CommonDialog1
.Filter = "Файлы Excel (*.xls)| *.xls" 'Фильтр для открытия файла
.InitDir = "C:\"
.Action = 1 'Или же CommonDialog1.ShowOpen
.Filename = "TS"
End With
Application.Workbooks.Open CommonDialog1.Filename
TS_Open = "TS.xls"
nResult = MsgBox("Внимание лист таблицы соответствия будет заменен. Вы согласны ? ", vbYesNo + vbExclamation, "Будем заменять лист таблицы соответствия ? !")
If nResult = vbYes Then
Workbooks("osv.xls").Activate
Workbooks("osv.xls").Worksheets("Таблица соответствия").Select
ActiveWindow.SelectedSheets.Delete
Workbooks("ts.xls").Activate
Workbooks("ts.xls").Worksheets("Таблица соответствия").Select
Workbooks("ts.xls").Worksheets("Таблица соответствия").Copy Before:=Workbooks("osv.xls").Sheets(5)
Workbooks("osv.xls").Activate
ActiveWorkbook.Close SaveChanges, "osv.xls"
MsgBox ("Внимание ! Таблица соответствия сохранена в файле TS.XLS !")
End If


End Sub


Jojo®

Степлер чё скажешь а ?

Jojo®

Ясна :))))
Тебе видать компа и операционной системы хватает на 1 день :)))
замучал комп ...
а у нас металлистов нет ...мы сами с усами
они так настроят мля ...что ваще не хера ничё работать не будет

Спасибо, у меня также ...
ошибка-опечатка была перепутал имена файлов ...

Private Sub CB_Load_Click()
' Загрузка из файла
With CommonDialog1
.Filter = "Файлы Excel (*.xls)| *.xls" 'Фильтр для открытия файла
.InitDir = "C:\"
.Action = 1 'Или же CommonDialog1.ShowOpen
.Filename = "TS"
End With
Application.Workbooks.Open CommonDialog1.Filename
TS_Open = "TS.xls"
nResult = MsgBox("Внимание лист таблицы соответствия будет заменен. Вы согласны ? ", vbYesNo + vbExclamation, "Будем заменять лист таблицы соответствия ? !")
If nResult = vbYes Then
Workbooks("osv.xls").Activate
Workbooks("osv.xls").Worksheets("Таблица соответствия").Select
ActiveWindow.SelectedSheets.Delete
Workbooks("ts.xls").Activate
Workbooks("ts.xls").Worksheets("Таблица соответствия").Select
Workbooks("ts.xls").Worksheets("Таблица соответствия").Copy Before:=Workbooks("osv.xls").Sheets(5)
Workbooks("ts.xls").Activate
ActiveWorkbook.Close SaveChanges, "ts.xls"
MsgBox ("Внимание ! Таблица соответствия сохранена в файле OSV.XLS !")
End If


End Sub


Jojo®

Workbooks("osv.xls").Worksheets("Таблица соответствия").Select
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.Save
Jojo®