Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление 2й строки на конкретном листе из excel / 5 сообщений из 5, страница 1 из 1
29.11.2010, 15:08
    #36983551
PavM
PavM
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление 2й строки на конкретном листе из excel
Всем добрый день

решая проблему выгрузки данных в Excel столкнулся с проблемой, описанной в данном топе:
http://sql.ru/forum/actualthread.aspx?tid=762229

решение есть:сделать вторую строку, заполненной пробелами, чтобы проайдер корректно определил формат текстового поля, но заказчику такой фа я отдать не могу

в VB не силен :(
подскажите пожалуйста, как удалить 2ю строку со сдвигом вверх на нужном листе. Заранее спасибо за помщь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2010, 15:27
    #36983645
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление 2й строки на конкретном листе из excel
PavMподскажите пожалуйста, как удалить 2ю строку со сдвигом вверх на нужном листе.Здравствуйте.
Код: plaintext
1.
2.
3.
4.
Sub PavM()
    Sheets("Лист1").Select
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2010, 15:41
    #36983695
PavM
PavM
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление 2й строки на конкретном листе из excel
Serge 007,

огромное спасибо за ответ

В SSIS я могу использовать только Visual Basic 2008
не подскажите еще, как к самому файлу обратиться и что указать в Imports?

извиняюсь, если это уже не из данной ветки форума
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2010, 16:55
    #36983997
Aster32
Aster32
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление 2й строки на конкретном листе из excel
Serge_007

Пара Select - Selection абсолютно совершенно не нужна для реализации данного действия - это особенность макросов, записанных встроенным макрорекордером, и от которой надо всемерно избавляться.

Конструкция Shift:=xlUp - тоже излишество.


Достаточно:

Код: plaintext
1.
2.
Sub PavM()
    Sheets("Лист1").Rows( 2 ).Delete    
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2010, 21:10
    #36984640
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление 2й строки на конкретном листе из excel
PavMВ SSIS я могу использовать только Visual Basic 2008
не подскажите еще, как к самому файлу обратиться и что указать в Imports?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub DelRow() 
    Dim oExcel As New Excel.Application 
    Dim oBook As Excel.Workbook = Nothing 

    oBook = oExcel.Workbooks.Open("C:\TEMP\Test.xls") 

    oBook.Sheets("Лист1").Rows( 2 ).Delete Shift:=xlUp

    oBook.Save() 
    oBook.Close() 
    oExcel.Quit() 
    oExcel = Nothing 
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление 2й строки на конкретном листе из excel / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 943ms
Закрыть
start [/forum/search_topic.php?author=charsy&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 7ms
get forum list:
 15ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 153ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 2ms
others: 690ms
total:  943ms
x
x
Закрыть


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