Встроенные диалоги excel

[AHTOXA]

Привет всем.
В excel написал такой макрос на VB:

Sub ImportByClick2()
Application.Dialogs.Item(xlDialogOpenText).Show _
arg2 = xlWindows, arg3 = 1, arg5 = xlDoubleQuote, arg6 = False, _
arg7 = False, arg8 = True, arg9 = False, arg10 = False, arg11 = False
End Sub

Должен открыться диалог, вместо этого мне выдается ошибка:

Application-defined or user-defined error, че с этим делать?

[corgi]

ты как аргументы задаешь
напиши вроде того ...
Dim p As object
Set p = Application.Dialogs(xlDialogOpenText)
ну и потом через точку параметры задаешь

ps ты еще кстати форумом ошибся ..... тебе в VBA надо

[AHTOXA]

То, что форумом ошибся, моя вина . А как параметры задаются для встроенных диалогов, я посмотрел по адресу http://www.firststeps.ru/dotnet/, там "Шаг 33 - Встроенные диалоговые окна".

[AHTOXA]

Задал так:
Dim p As Object
Set p = Application.Dialogs(xlDialogOpenText)

Выдает ту же самую ошибку, но я же метода Show не вызывал.

[corgi]

1. не знал однако
2. этот диалог относится к классу диалогов у которых нет формы

Microsoft Excel provides a list of built-in constants that you can use in a Microsoft Visual Basic for Applications macro to display a built-in Excel dialog box. However, some of the built-in constants will not display an interactive dialog box.
xlDialogAppMove
xlDialogAppSize
xlDialogErrorbarX
xlDialogErrorbarY
xlDialogFormatMove
xlDialogMove
xlDialogOpenText
xlDialogOverlayChartType
xlDialogPivotFieldUngroup
xlDialogSaveCopyAs
xlDialogSetControlValue
xlDialogSize
xlDialogSplit
xlDialogVbaProcedureDefinition
xlDialogWindowMove
xlDialogWindowSize
xlDialogWorkbookTabSplit

так что используй простой xlDialogOpen

[AHTOXA]

Со всеми бывает . Дело в том что мне надо импортировать данные из текстового файла. Если использовать xlDialogOpen, то будет задано куча вопросов по импорту, а мне надо сделать так чтобы user выбрал файл, ткнул ok и данные бы засосались. Ничего не можете посоветовать?

[corgi]

ну для начала такую стандартную вещь: нажимаешь записать макрос потом экспортируешь файл затем останавливаешь запись и смотришь что там получилось ну а дале по ситуации

[AHTOXA]

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

Пока сделал так:

Sub ImportFileByClick()
On Error GoTo Error1
file_name = InputBox("Input valid filename", "Import file")
If file_name <> "" Then
Workbooks.OpenText Filename:=file_name, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False
End If
GoTo Ends
Error1:
MsgBox (Err.Description)
file_name = InputBox("Input valid filename", "Import file")
If file_name <> "" Then
Resume 0
End If
Ends:
End Sub

Но так диалог открытия файла не удобный. Есть еще какие-нибудь идеи?

[corgi]

в fileToOpen получаем имя файла который хочем открыть

Код: Выделить всё

Dim fileToOpen As String
fileToOpen = Application.GetOpenFilename("txt Files (*.txt), *.txt")


ну и дале подставляем в записаный нами ранее макрос

[AHTOXA]

Спасибо дружище, то что нужно. Будешь в Петрозаводске, с меня Пыво.

[corgi]

"нет уж лучше вы к нам" (c)