ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Не получается программно с помощью VBS добавить столбец в excel документ
4 сообщений из 4, страница 1 из 1
Не получается программно с помощью VBS добавить столбец в excel документ
    #37883650
ВЕЗУНЧИК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВЕЗУНЧИК
Гость
Доброе время суток всем!
Есть такая задачка. Нужно с помощью VBScript выбрать из указанной дирректории excel документ, добавить программно в него столбец и визуализировать его.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Dim s,i,m,xls,objDialog,objRange,winCount,Shift,MyXL
 m =  Timer()
 'Выведем диалогове окно с выбором файла
 Set objDialog = CreateObject("UserAccounts.CommonDialog")
 objDialog.Filter = "Excel Files|*.xls"
 objDialog.FilterIndex = 1
 nResult = objDialog.ShowOpen

 'Открывем наш файлик
 FileLocation = objDialog.FileName
 set xls=GetObject(FileLocation)
 'Set MyXL = xls.Application
 
'Добавим столбец
 xls.Columns("A").Insert -4161
 'Визуализируем
 xls.Application.Visible = True
 xls.Parent.Windows(1).Visible = True
 
xls = Nothing
 msgbox   Timer()- m



Но при выполнении скрипта выводится ошибка:
Строка 15 символ 2 Ошибка: Объект не поддерживает это свойство или метод 'Columns'

Это означает, что объект GetObject не поддерживает метод "Columns" (на против объект "CreateObject" его поддерживает), но в данном случае нужно сделать, чтоб пользователь сам выбоал файл в нужной ему дирректории. Как можно обойти данную ситуацию? Заранее благодарен за все предложенные ответы!!!
...
Рейтинг: 0 / 0
18.07.2012, 13:28:19
| Ответить | Цитировать | Написать  
Не получается программно с помощью VBS добавить столбец в excel документ
    #37883926
Фотография Ex_Soft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ex_Soft
Участник
1. тынць
2. Судя по http://msdn.microsoft.com/en-us/library/e9waz863%28v=VS.71%29.aspx
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
   ' Set the object variable to reference the file you want to see.
   MyXL = GetObject("c:\vb\TEST.XLS")

   ' Show Microsoft Excel through its Application property. Then
   ' show the actual window containing the file using the Windows
   ' collection of the MyXL object reference.
   MyXL.Application.Visible = True



Вы в своем
ВЕЗУНЧИК
Код: vbnet
1.
2.
3.
 'Открывем наш файлик
 FileLocation = objDialog.FileName
 set xls=GetObject(FileLocation)



в xls имеете COM Excel'я. Вам необходимо из него достучаться до Workbook 'а, далее до Worksheet 'а, а, уж, потом Columns мучить
...
Рейтинг: 0 / 0
18.07.2012, 15:08:02
| Ответить | Цитировать | Написать  
Не получается программно с помощью VBS добавить столбец в excel документ
    #37884753
ВЕЗУНЧИК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВЕЗУНЧИК
Гость
Ex_Soft
Я конечно это все понимаю, но что то немного не выходит. Пытаюсь выполнить
Код: vbnet
1.
MyXL = xls.Workbooks(1)

летит ошибка -
Объект не поддерживает свойство или метод Workbooks (((
...
Рейтинг: 0 / 0
19.07.2012, 07:45:54
| Ответить | Цитировать | Написать  
Не получается программно с помощью VBS добавить столбец в excel документ
    #37884874
Фотография Ex_Soft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ex_Soft
Участник
Ex_Soft1. тынць
...
Рейтинг: 0 / 0
19.07.2012, 10:09:26
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Не получается программно с помощью VBS добавить столбец в excel документ
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=22&gotonew=1&tid=1449564]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 49ms
get topic data:
 9ms
get first new msg:
 6ms
get forum data:
 3ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 216ms
total:  339ms
созд. / загр.: 339ms
x
x
Закрыть


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