ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / сохранение листов в разные файлы
10 сообщений из 10, страница 1 из 1
сохранение листов в разные файлы
    #37342738
dinaria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dinaria
Гость
есть код, который удаляет одинаковые строки из двух листов, надо получившиеся листы сохранить в разные эксель файлы с одним листом, подскажите как это сделать, ПОЖАААЛуйста))))!!!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub CommandButton1_Click()
Dim n1 As Long, n2 As Long, i As Long, j As Long
With Workbooks("1")
For i =  1  To n1
 For j =  1  To n2
   If Not .Worksheets("2").Cells(i,  1 ) Like "*[А-я]*" Then
    If Not .Worksheets("2").Cells(i,  1 ) Like "*[A-z]*" Then
     If .Worksheets("2").Cells(i,  1 ) = .Worksheets("3").Cells(j,  1 ) Then
      .Worksheets("2").Cells(i,  1 ).EntireRow.Delete
      .Worksheets("3").Cells(j,  1 ).EntireRow.Delete
     End If
    End If
   End If
  Next j
Next i
//здесь нужно сохранить лист  2  в один файл и лист  3  в др файл
End With

End Sub

заранее огромное спасибо!!!!!!!!!!
...
Рейтинг: 0 / 0
08.07.2011, 10:49
| Ответить | Цитировать | Написать  
сохранение листов в разные файлы
    #37342772
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: dinaria
> //здесь нужно сохранить лист 2 в один файл и лист 3 в др файл


Записываешь макрос копирования/перемещения листов в другие книги и сохранение этих книг. И все.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
08.07.2011, 10:58
| Ответить | Цитировать | Написать  
сохранение листов в разные файлы
    #37342939
dinaria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dinaria
Гость
Игорь Горбонос> Автор: dinaria
> //здесь нужно сохранить лист 2 в один файл и лист 3 в др файл


Записываешь макрос копирования/перемещения листов в другие книги и сохранение этих книг. И все.


надо через saveas
примерно так:
.Worksheets("2").SaveAs Filename = "C:\папка\2.xls", FileFormat = xls
.Worksheets("3").SaveAs Filename = "C:\папка\3.xls", FileFormat = xls

но так он ругается, не пойму почему)
...
Рейтинг: 0 / 0
08.07.2011, 12:04
| Ответить | Цитировать | Написать  
сохранение листов в разные файлы
    #37342959
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
dinariaно так он ругается, не пойму почему)
Потому что синтаксис никто не отменял:
Код: plaintext
.Worksheets("3").SaveAs Filename := "C:\папка\3.xls", FileFormat := "xls"
...
Рейтинг: 0 / 0
08.07.2011, 12:13
| Ответить | Цитировать | Написать  
сохранение листов в разные файлы
    #37342999
dinaria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dinaria
Гость
Shocker.Prodinariaно так он ругается, не пойму почему)
Потому что синтаксис никто не отменял:
Код: plaintext
.Worksheets("3").SaveAs Filename := "C:\папка\3.xls", FileFormat := "xls"


исправила синтаксис,выдает сообщение: run-time error 1004 application-defined or object-defined error
...
Рейтинг: 0 / 0
08.07.2011, 12:24
| Ответить | Цитировать | Написать  
сохранение листов в разные файлы
    #37343047
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: dinaria
> FileFormat := "xls"

Вообще-то FileFormat это константа из следующего
 
списка:Справка по VBA для ExcelXlFileFormat can be one
of these XlFileFormat constants.

xlCSV
xlCSVMSDOS
xlCurrentPlatformText
xlDBF3
xlDIF
xlExcel2FarEast
xlExcel4
xlAddIn
xlCSVMac
xlCSVWindows
xlDBF2
xlDBF4
xlExcel2
xlExcel3
xlExcel4Workbook
xlExcel5
xlExcel7
xlExcel9795
xlHtml
xlIntlAddIn
xlIntlMacro
xlSYLK
xlTemplate
xlTextMac
xlTextMSDOS
xlTextPrinter
xlTextWindows
xlUnicodeText
xlWebArchive
xlWJ2WD1
xlWJ3
xlWJ3FJ3
xlWK1
xlWK1ALL
xlWK1FMT
xlWK3
xlWK3FM3
xlWK4
xlWKS
xlWorkbookNormal
xlWorks2FarEast
xlWQ1
xlXMLSpreadsheet


> исправила синтаксис,выдает сообщение: run-time error 1004 application-defined or object-defined error

Значит что-то не так :) но отсюда не видно :(

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
08.07.2011, 12:36
| Ответить | Цитировать | Написать  
сохранение листов в разные файлы
    #37343103
studieren
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
studieren
Участник
dinariaИгорь Горбонос> Автор: dinaria
> //здесь нужно сохранить лист 2 в один файл и лист 3 в др файл


Записываешь макрос копирования/перемещения листов в другие книги и сохранение этих книг. И все.


надо через saveas
примерно так:
.Worksheets("2").SaveAs Filename = "C:\папка\2.xls", FileFormat = xls
.Worksheets("3").SaveAs Filename = "C:\папка\3.xls", FileFormat = xls

но так он ругается, не пойму почему)

А разве Worksheet можно сохранить как файл? Мне кажется Workbook можно, но чтобы Worksheet как файл - первый раз вижу. Может быть проблема в этом?
...
Рейтинг: 0 / 0
08.07.2011, 12:56
| Ответить | Цитировать | Написать  
сохранение листов в разные файлы
    #37343122
studieren
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
studieren
Участник
dinaria,

Прочёл help и насколько я понял Worksheet можно сохранить с помощью SaveAs в существующий файл. Т.е. Вы предварительно должны создать и сохранить сам файл (если он не существует) и только потом SaveAs, но при этом название листа полагаю не должно совпасть.
...
Рейтинг: 0 / 0
08.07.2011, 13:01
| Ответить | Цитировать | Написать  
сохранение листов в разные файлы
    #37343210
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
studierendinaria,

Прочёл help и насколько я понял Worksheet можно сохранить с помощью SaveAs в существующий файл. Т.е. Вы предварительно должны создать и сохранить сам файл (если он не существует) и только потом SaveAs, но при этом название листа полагаю не должно совпасть.
Видимо, неправильно понял.
я попробовал команду:
Код: plaintext
ThisWorkbook.Worksheets( 1 ).SaveAs "v:\1111.xls"
сохраняет все равно всю книгу. Так что автору нужно воспользоваться советом Игоря.
...
Рейтинг: 0 / 0
08.07.2011, 13:30
| Ответить | Цитировать | Написать  
сохранение листов в разные файлы
    #37344248
пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пробуй камнем
Гость
dinaria,
копируем лист в новую книгу, новую книгу сохраням и закрываем...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
' {skipped}
  Application.ScreenUpdating = False
  .Worksheets( 2 ).Copy
  ActiveWorkbook.SaveAs "C:\папка\2.xls"
  ActiveWorkbook.Close
  .Worksheets( 3 ).Copy
  ActiveWorkbook.SaveAs "C:\папка\2.xls"
  ActiveWorkbook.Close
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
' {skipped}
...
Рейтинг: 0 / 0
08.07.2011, 22:33
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / сохранение листов в разные файлы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37343047&tid=2158570]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 122ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 15ms
total:  228ms
созд. / загр.: 228ms
x
x
Закрыть


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