GetOpenFilename

[OlegkA]

есть код

Sub GetFileCodes() 'ïðîöåäóðà ïîëó÷åíèÿ èìåíè ôàéëà ñ êîäàìè è òàðèôàìè ãîðîäîâ
Dim Filt As String, FilterIndex As Integer, FileName As Variant, Title As String 'îáúÿâëÿåì ïåðåìåííûå
Filt = "Ôàéëû Excell (*.xls),*.xls" 'Óñòàíîâêà îòîáðàæàåìûõ ôàéëîâ(ïî øàáëîíó)
FilterIndex = 1 'çíà÷åíèå ïî óìîë÷àíèþ
Title = "Âûáåðèòå ôàéë ñ êîäàìè ãîðîäîâ" 'çàãîëîâîê îêíà
FileName = Application.GetOpenFilename(FileFilter:=Filt, FilterIndex:=FilterIndex, Title:=Title) 'âûâîäèì îêíî è ïîëó÷àåì èìÿ ôàéëà
If FileName = False Then 'åñëè íå âûáðàí ôàéë âûõîä èç ïðîöåäóðû
MsgBox "Ôàéë íå âûáðàí, äàëüíåéøàÿ îáðàáîòêà íåâîçìîæíà!"
Exit Sub
Else: Call tariff(FileName)
End If
End Sub

и еще код

Sub tariff(FileName)
For a = 1 To 500
Set b = Application.Workbooks(FileName).Worksheets(CODE).Range("A1").Offset(a - 1, 0)
Next a
End Sub

получается эксель не может обрабатывать закрытые рабочие книги?

[OlegkA]

т.е мы получили полный маршрут к файлу экселя с ним возможно потом работать или надо будет все равно его открывать, работать а потом закрывать?, не практично как-то.!

[GSerg]

В ресторане.
- Один бокал вина, пожалуйста.
- Прошу...
- Надеюсь, вам не пришлось открывать ради меня бутылку?
- Месье знает другой способ извлечь вино?

[OlegkA]

ну и сравнение ты привел. т.е нет?

[GSerg]

Нет лучше способа испортить шутку, чем потребовать её объяснения.

Вопрос "Как прочитать файл, не открывая его", относится к категории "Банить сразу, разбираться потом"



Торчу на форуме 1 января

[OlegkA]

алтернативы есть?, без визуализации открытия и тп.?

[GSerg]

Да на здоровье... Если совсем не надо, чтобы даже мелькало, то создать ещё один невидимый инстанс экселя и всё загружать в него. Если можно, чтобы немного мелькало, то сразу после открытия visible=false.

[OlegkA]

месье нешел способ это сделать!

[OlegkA]

вам его отписать?

[GSerg]

Не мне, а нам.

Отпиши

[OlegkA]

Private Function GetValue(path, file, sheet, ref)
Dim arg As String
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "ôàéë íå íàéäåí!"
Exit Function
End If
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function

Sub a()
p = "C:\"
f = "aaa.xls"
s = "Ëèñò1"
cell = "A1"
n = GetValue(p, f, s, cell)
MsgBox n
End Sub

Аля, Улюю..

[GSerg]

Ох !@#$...

А ты думаешь, что при этом файл не открывается?

[OlegkA]

а ты это видишь?

[GSerg]

- Ты суслика видишь?
- Нет.
- И я нет. А он есть.
- Понял...

[OlegkA]

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

[A.A.Z.]

[off]2 GSerg: И ты ДМБ смотришь [/off]

[tyomitch]

Я ДМБ не смотрел, но эту цитату слышу уже раз в сотый... Видимо, это самая запоминающаяся часть фильма