Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / сохранение листов в разные файлы / 10 сообщений из 10, страница 1 из 1
08.07.2011, 10:49
    #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:58
    #37342772
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сохранение листов в разные файлы
> Автор: dinaria
> //здесь нужно сохранить лист 2 в один файл и лист 3 в др файл


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

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.07.2011, 12:04
    #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:13
    #37342959
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сохранение листов в разные файлы
dinariaно так он ругается, не пойму почему)
Потому что синтаксис никто не отменял:
Код: plaintext
.Worksheets("3").SaveAs Filename := "C:\папка\3.xls", FileFormat := "xls"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.07.2011, 12:24
    #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:36
    #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:56
    #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, 13:01
    #37343122
studieren
studieren
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сохранение листов в разные файлы
dinaria,

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

Прочёл help и насколько я понял Worksheet можно сохранить с помощью SaveAs в существующий файл. Т.е. Вы предварительно должны создать и сохранить сам файл (если он не существует) и только потом SaveAs, но при этом название листа полагаю не должно совпасть.
Видимо, неправильно понял.
я попробовал команду:
Код: plaintext
ThisWorkbook.Worksheets( 1 ).SaveAs "v:\1111.xls"
сохраняет все равно всю книгу. Так что автору нужно воспользоваться советом Игоря.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.07.2011, 22:33
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / сохранение листов в разные файлы / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 503ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158570]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 74ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 339ms
total:  503ms
x
x
Закрыть


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