Работа с меню / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с меню

35 сообщений из 35, показаны все 2 страниц

все

Работа с меню

#38114214

Техник55

Гость

Открывал так когда знал путь и конкретный файл:

Код: vbnet

Set xlsWb = xlsApp.Workbooks.Open("C:\Documents and Settings\User\отчет.xls")

А когда все меняется хотелось бы загружать путь сюда:

Код: vbnet

Set xlsWb = xlsApp.Open("СЮДА")

Допустим вот так сделал:

Код: vbnet

1.
2.
3.
4.

fileToOpen = xlsApp.GetOpenFilename("Only these Files (*.txt;*.doc;*.xls), *.txt; *.doc; *.xls")
If fileToOpen <> False Then

End If

А как написать чтобы путь поместить куда нужно?

...

Рейтинг:

0 / 0

17.01.2013, 16:13

| Ответить | Цитировать | Написать

Работа с меню

#38114420

VSVLAD

Участник

Откуда: Краснодар

Сообщения: 1 379

Рейтинг: 0 / 0

Техник55,

Set xlsWb = xlsApp.Open( fileToOpen )
?? Это основы основ

...

Рейтинг:

0 / 0

17.01.2013, 18:11

| Ответить | Цитировать | Написать

Работа с меню

#38114422

VSVLAD

Участник

Откуда: Краснодар

Сообщения: 1 379

Рейтинг: 0 / 0

Точнее так, не усмотрел что вы зачем то отбросили Workbooks. Метода Open нет у Application

Код: vbnet

Set xlsWb = xlsApp.Workbooks.Open(fileToOpen)

...

Рейтинг:

0 / 0

17.01.2013, 18:13

| Ответить | Цитировать | Написать

Работа с меню

#38114428

Техник55

Гость

Я так и пробовал. И не пошло...
Как раз забыл WorkBooks, вот и спросил.

...

Рейтинг:

0 / 0

17.01.2013, 18:20

| Ответить | Цитировать | Написать

Работа с меню

#38114446

Техник55

Гость

Все равно ошибку выдает
object variable or with variable not set

...

Рейтинг:

0 / 0

17.01.2013, 18:33

| Ответить | Цитировать | Написать

Работа с меню

#38114671

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

Техник55,

на какой строке ? xlsApp инициализирован ?

...

Рейтинг:

0 / 0

17.01.2013, 23:50

| Ответить | Цитировать | Написать

Работа с меню

#38114862

ZVI

Участник

Откуда: Sevastopol

Сообщения: 473

Рейтинг: 0 / 0

Вариант кода:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.

Sub Test()
  
  Dim xlsApp As Object
  Dim xlsWb As Object
  Dim fileToOpen As Variant
  
  On Error Resume Next
  Set xlsApp = GetObject(, "Excel.Application")
  If Err Then Set xlsApp = CreateObject("Excel.Application")
  On Error GoTo exit_
  
  xlsApp.Visible = True
  
  fileToOpen = xlsApp.GetOpenFilename("Excel files (*.xls*), *.xls*")
  If fileToOpen <> False Then
    Set xlsWb = xlsApp.workbooks.Open(fileToOpen)
  End If
  
  ' ...
  
exit_:
  
  Set xlsWb = Nothing
  Set xlsApp = Nothing
  
  If Err Then MsgBox Err.Description, "Error #" & Err.Number
  
End Sub

...

Рейтинг:

0 / 0

18.01.2013, 09:43

| Ответить | Цитировать | Написать

Работа с меню

#38114864

Техник55

Гость

Все разобрался надо было в модуле объявить Dim xlsApp As Object, а активацию в событии Form_Load()

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

Option Explicit
Dim xlsApp As Object
 
Private Sub Form_Load()
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True
End Sub

...

Рейтинг:

0 / 0

18.01.2013, 09:44

| Ответить | Цитировать | Написать

Работа с меню

#38114872

ZVI

Участник

Откуда: Sevastopol

Сообщения: 473

Рейтинг: 0 / 0

ZVI

Код: vbnet

  If Err Then MsgBox Err.Description, "Error #" & Err.Number

Должно быть так:

Код: vbnet

  If Err Then MsgBox Err.Description, [color=red]16[/color], "Error #" & Err.Number

[/quot]

...

Рейтинг:

0 / 0

18.01.2013, 09:50

| Ответить | Цитировать | Написать

Работа с меню

#38114878

ZVI

Участник

Откуда: Sevastopol

Сообщения: 473

Рейтинг: 0 / 0

Извиняюсь, не проверил тэги, должно быть так:
If Err Then MsgBox Err.Description, 16 , "Error #" & Err.Number

...

Рейтинг:

0 / 0

18.01.2013, 09:52

| Ответить | Цитировать | Написать

Работа с меню

#38114885

i45

Участник

Сообщения: 8 244

Рейтинг: 0 / 0

ZVIВариант кода:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.

Sub Test()
  
  Dim xlsApp As Object
  Dim xlsWb As Object
  Dim fileToOpen As Variant
  
  On Error Resume Next
  Set xlsApp = GetObject(, "Excel.Application")
  If Err Then Set xlsApp = CreateObject("Excel.Application")
  On Error GoTo exit_
  
  xlsApp.Visible = True
  
  fileToOpen = xlsApp.GetOpenFilename("Excel files (*.xls*), *.xls*")
  If fileToOpen <> False Then
    Set xlsWb = xlsApp.workbooks.Open(fileToOpen)
  End If
  
  ' ...
  
exit_:
  
  Set xlsWb = Nothing
  Set xlsApp = Nothing
  
  If Err Then MsgBox Err.Description, "Error #" & Err.Number
  
End Sub

ZVI,

Код: vbnet

If fileToOpen <> False Then

равносильно и проще

Код: vbnet

If fileToOpen Then

...

Рейтинг:

0 / 0

18.01.2013, 09:55

| Ответить | Цитировать | Написать

Работа с меню

#38114953

Техник55

Гость

Подскажите, вот при создании допустим нового файла:

Код: vbnet

Set xlsWb1 = xlsApp.Workbooks.Add

как ему имя дать?
xlsWb1="новое имя" ????

...

Рейтинг:

0 / 0

18.01.2013, 10:53

| Ответить | Цитировать | Написать

Работа с меню

#38114971

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Техник55Подскажите, вот при создании допустим нового файла:

Код: vbnet

Set xlsWb1 = xlsApp.Workbooks.Add

как ему имя дать?
xlsWb1="новое имя" ????Имя книге дается лишь при ее сохранении.

...

Рейтинг:

0 / 0

18.01.2013, 11:06

| Ответить | Цитировать | Написать

Работа с меню

#38115016

Техник55

Гость

Понятно, плохо. Мне просто необходимо работать с двумя файлами xls и надо с одного переходить на другой:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

xlsApp.Windows("отчет.xls").Activate
                xlsApp.Cells(R, 1).Select
                xlsApp.Selection.Copy
    
                xlsApp.Windows(???????????).Activate
                xlsApp.Cells(R, 1).Select
                xlsApp.ActiveSheet.Paste

...

Рейтинг:

0 / 0

18.01.2013, 11:36

| Ответить | Цитировать | Написать

Работа с меню

#38115044

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Техник55Мне просто необходимо работать с двумя файлами xls и надо с одного переходить на другой:1) Мне надо дать имя файлу
2) Мне необходимо переходить с одного файла на другой
3) Мне необходимо скопировать диапазон из одной книги в другую книгу
определись, что хошь на самом деле?

для решения задачи 3) пункты 1) и 2) ни разу не требуются:

Код: vbnet

workbooks("книга1").Worksheets("Лист1").range("A2").Copy workbooks("книга2").Worksheets("Лист1").range("A3")

...

Рейтинг:

0 / 0

18.01.2013, 11:46

| Ответить | Цитировать | Написать

Работа с меню

#38115051

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

и вот это еще почитай

...

Рейтинг:

0 / 0

18.01.2013, 11:48

| Ответить | Цитировать | Написать

Работа с меню

#38115586

Техник55

Гость

Да интересно была ссылка по переделке макроса:
Когда делал так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

xlsApp.Windows("1.xls").Activate
                xlsApp.Cells(R, 1).Select
                xlsApp.Selection.Copy
    
               xlsApp.Windows("2.xls").Activate
                xlsApp.Cells(R, 1).Select
                xlsApp.ActiveSheet.Paste

То из одного файла переносилось так как есть в другой. Я имею допустим были ячейки объединенные, центрирование текста итд.
А когда так:

Код: vbnet

 xlsSh.Cells(R, 1).Copy xlsSh1.Cells(R, 1)

То все ужалось в одну ячейку и все, выходит копирование не равнозначное?!

...

Рейтинг:

0 / 0

18.01.2013, 15:39

| Ответить | Цитировать | Написать

Работа с меню

#38115588

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

а .Cells(R, 1) - это и есть одна ячейка. указывай диапазон

...

Рейтинг:

0 / 0

18.01.2013, 15:41

| Ответить | Цитировать | Написать

Работа с меню

#38115601

Техник55

Гость

Shocker.Proдля решения задачи 3) пункты 1) и 2) ни разу не требуются:

И еще момент. У Вас указаны книги 1 и 2, а если уже какая то книга будет открыта и в этот момент я запущу прогу свою, тогда вновь созданная уже будет книга N, а у меня четко будет прописано книга1 или2?

...

Рейтинг:

0 / 0

18.01.2013, 15:49

| Ответить | Цитировать | Написать

Работа с меню

#38115606

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Кто создает эту книгу? Твой код? Тогда тебе вообще пофиг как она называется, у тебя на нее прямая ссылка есть.

...

Рейтинг:

0 / 0

18.01.2013, 15:51

| Ответить | Цитировать | Написать

Работа с меню

#38115623

Техник55

Гость

Shocker.Proа .Cells(R, 1) - это и есть одна ячейка. указывай диапазон
Во-первых R у меня переменная.
Во-вторых: в исходной файле были ячейки A10:J10 объединены и в итоге она получила имя A10, поэтому я и копирую А10, но объединение не переносится.
Если только перед copy объеденить массив

Код: vbnet

xlsApp.Workbooks("книга1").Worksheets("книга1").Range("AR:JR").Merge

Правда он не понимает что R-переменная, где то накосячил я.

...

Рейтинг:

0 / 0

18.01.2013, 15:57

| Ответить | Цитировать | Написать

Работа с меню

#38115626

Техник55

Гость

Код: vbnet

xlsApp.Workbooks("книга1").Worksheets("лист1").Range("AR:JR").Merge

...

Рейтинг:

0 / 0

18.01.2013, 15:59

| Ответить | Цитировать | Написать

Работа с меню

#38115634

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Техник55Правда он не понимает что R-переменная, где то накосячил я.
Правильно, ты же ему не объяснил, где у тебя тект, а где переменная:

Код: vbnet

xlsApp.Workbooks("книга1").Worksheets("книга1").Range("A" & R & ":J" & R).Merge

Но зачем объединять-то? прямо этот Range и копируй.

...

Рейтинг:

0 / 0

18.01.2013, 16:03

| Ответить | Цитировать | Написать

Работа с меню

#38115678

Техник55

Гость

точно не указал
правильно зачем объединять, сразу диапазаон брать. Просто думал это не правильное будет обращение, раз объединили то нужно одну ячейку указывать, ОШИБАЛСЯ...

...

Рейтинг:

0 / 0

18.01.2013, 16:23

| Ответить | Цитировать | Написать

Работа с меню

#38115860

Техник55

Гость

Подскажите вот есть папка(дирректория) в ней файлы с имена п.1, п.2 итд. Нужно указать путь до них через как бы обзор, чтобы потом проверять наличие этих файло п.1, п.2

Код: vbnet

1.
2.

For S = 1 To 40
   If Dir("C:.........." & "\п." & Val(S) & ".*") <> "" Then

Может использовать CommonDialog1.ShowOpen, только не знаю как?

...

Рейтинг:

0 / 0

18.01.2013, 18:39

| Ответить | Цитировать | Написать

Работа с меню

#38115881

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Техник55Может использовать CommonDialog1.ShowOpen, только не знаю как?Есть на клавиатуре такая кнопка волшебная - F1.
Там и примеры есть для всех видов диалогов.
Ну и на форуме, конечно же можно найти.

ЗЫ: Зачем тут Val() ?

...

Рейтинг:

0 / 0

18.01.2013, 18:56

| Ответить | Цитировать | Написать

Работа с меню

#38116198

Техник55

Гость

в принципе разобрался с CommonDialogs

Код: vbnet

1.
2.
3.

CommonDialog1.ShowOpen
For S = 1 To 40
   If Dir(CommonDialog1.Initdir & "п."  & S & ".*") <> "" Then

Заходишь в директорию выбираешь любую папку и все.
Нам главное путь к дирректории CommonDialog1.Initdir.
Но одна проблемма если папка будет пуста то директория не установится, нужны любые файлы.
Видимо для выбора каталога не очень подходит. Ей хорошо открывать конкретные файлы.

...

Рейтинг:

0 / 0

19.01.2013, 06:39

| Ответить | Цитировать | Написать

Работа с меню

#38116221

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Поищи, тут где-то приводился пример с диалогом выбора папки. Ну или можно его сделать из компонентов DirListBox и DriveListBox

...

Рейтинг:

0 / 0

19.01.2013, 09:15

| Ответить | Цитировать | Написать

Работа с меню

#38116231

Техник55

Гость

Shocker.Pro, с помощью этого решил

Код: vbnet

BrowseForFolder

...

Рейтинг:

0 / 0

19.01.2013, 10:18

| Ответить | Цитировать | Написать

Работа с меню

#38116234

Техник55

Гость

Shocker.ProКто создает эту книгу? Твой код? Тогда тебе вообще пофиг как она называется, у тебя на нее прямая ссылка есть.
Проблемка все таки осталась. Да мой код создает эту книгу:

Код: vbnet

Set xlswb1 = xlsApp.Workbooks.Add

Вот если нет окрытых книг, то он называет новый Книга1.
Но допустим я не стал закрывать Книга1 и запустил снова код, то он создает книгу2 и как вы говорите и ссылается на нее.
А при копировании у меня четко прописано что в книгу 2 и ошибка вылазит?!

...

Рейтинг:

0 / 0

19.01.2013, 10:29

| Ответить | Цитировать | Написать

Работа с меню

#38116236

Техник55

Гость

А при копировании у меня четко прописано что в книгу 1 и ошибка вылазит?!

...

Рейтинг:

0 / 0

19.01.2013, 10:32

| Ответить | Цитировать | Написать

Работа с меню

#38116416

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

Техник55А при копировании у меня четко прописано что в книгу 2 и ошибка вылазит?!Вам же ответили - у вас есть xlswb1 , вот через этот объект и обращайтесь, он и будет новой книгой. Откуда вы взяли, что надо именно написать "книга 2"? Патамушта "гладиолус"?

...

Рейтинг:

0 / 0

19.01.2013, 17:11

| Ответить | Цитировать | Написать

Работа с меню

#38116463

Техник55

Гость

AndreTM Патамушта "гладиолус"?
Это точно...

...

Рейтинг:

0 / 0

19.01.2013, 18:36

| Ответить | Цитировать | Написать

Работа с меню

#38116485

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Техник55Проблемка все таки осталась.вместо xlsApp.Workbooks("книга1") пиши xlswb1 и будет тебе щастье.

...

Рейтинг:

0 / 0

19.01.2013, 19:38

| Ответить | Цитировать | Написать

Работа с меню

#38116503

Техник55

Гость

Shocker.Pro, спасибо разобрался.
Я до этого пробовал как Вы сказали, была ошибка.
Надо было объявить глобально:

Код: vbnet

1.
2.
3.
4.
5.

Dim xlsWb  As Object
Dim xlsSh   As Object
Dim xlsWb1  As Object
Dim xlsSh1   As Object
 Dim xlsApp As Object

И теперь мне ЧАСТЬЕ

...

Рейтинг:

0 / 0

19.01.2013, 20:36

| Ответить | Цитировать | Написать

35 сообщений из 35, показаны все 2 страниц

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с меню

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?all=1&fid=60&tid=2157209]:	0ms
get settings:	9ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	46ms
get topic data:	13ms
get forum data:	3ms
get page messages:	65ms
get tp. blocked users:	1ms
others:	290ms

total:	445ms