открытия файла

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/открытия файла - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

открытия файла

Гость

Дата: Вторник, 19.06.2012, 13:03 | Сообщение № 1

Группа: Гости

Workbooks.Open Filename:=Interface.Cells(20, 2).Value & fs(t) & "\" & "likv" & fs(t) & ".xls"
можно как нить подредактировать строку чтоб открывал еще и xlsx
если нет то как сделать чтоб он открывал 2 формата?

Ответить

Gustav

Дата: Вторник, 19.06.2012, 14:41 | Сообщение № 2

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Можно как-то так, например:
[vba]

Code

Sub fff()

       On Error Resume Next

       Workbooks.Open Filename:=Interface.Cells(20, 2).Value & fs(t) & "\" & "likv" & fs(t) & ".xls"

       If Err.Number <> 0 Then
          Err.Clear

          Workbooks.Open Filename:=Interface.Cells(20, 2).Value & fs(t) & "\" & "likv" & fs(t) & ".xlsx"

          If Err.Number <> 0 Then
              MsgBox Err.Description, , "Error Generated: " & Err.Number
              Err.Clear
          End If
       End If

       On Error GoTo 0

End Sub

[/vba]

Или можно совсем простой вариант, но в этом случае две попытки открытия будут всегда:
[vba]

Code

Sub fff()

       On Error Resume Next
       Workbooks.Open Filename:=Interface.Cells(20, 2).Value & fs(t) & "\" & "likv" & fs(t) & ".xls"
       Workbooks.Open Filename:=Interface.Cells(20, 2).Value & fs(t) & "\" & "likv" & fs(t) & ".xlsx"
       On Error GoTo 0

End Sub

[/vba]

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Вторник, 19.06.2012, 14:45

Ответить

открытия файла

Страница 1 из 1
1