Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открыть файл Excel скрытым? / 5 сообщений из 5, страница 1 из 1
22.05.2008, 11:47
    #35327952
timursmeta
timursmeta
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть файл Excel скрытым?
Здравствуйте всем! Помогите решить проблему открытия файла Excel невидимым для пользователя...
В процедуре Workbooks.Open нет параметров похожих на Hidden(да еще я слышал что Open имеет разное количество параметров зависящее от версии Excel), а fs.Visible = False валиться Exception. И еще, Application.Visible = False не подойдет для решения этой задачи. Спасибо за внимание.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub OpenFileFromLoadData()
   Dim sPath As String
   Dim fs As Object
   Dim SaveWorkBook As Workbook
  
   Set fs = CreateObject("Scripting.FileSystemObject")
   sPath = Workbooks("Test.xls").Path
   sPath = sPath + "\" + "FileOpen.xls"
    
   If Not fs.FileExists(sPath) Then
      Application.Workbooks.Add
      Set SaveWorkBook = Application.ActiveWorkbook
      SaveWorkBook.SaveAs (sPath)
   Else
      Application.Workbooks.Open (sPath)
      Set SaveWorkBook = Application.ActiveWorkbook
   End If   
   'Делаю некие операции с файлом XLS...
   SaveWorkBook.Save
   SaveWorkBook.Close  
           
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2008, 12:23
    #35328128
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть файл Excel скрытым?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Sub OpenFileFromLoadData()
   Dim sPath As String
   Dim fs As Object
   Dim SaveWorkBook As Workbook
  
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set eWindow = CreateObject("Excel.Application")

'   sPath = Workbooks("Test.xls").Path
'   sPath = sPath + "\" + "FileOpen.xls"
    sPath = ThisWorkbook.Path + "\" + "FileOpen.xls"
   If Not fs.FileExists(sPath) Then
      eWindow.Application.Workbooks.Add
      Set SaveWorkBook = eWindow.Application.ActiveWorkbook
      SaveWorkBook.SaveAs (sPath)
   Else
      eWindow.Application.Workbooks.Open (sPath)
      Set SaveWorkBook = eWindow.Application.ActiveWorkbook
   End If
   'Делаю некие операции с файлом XLS...
   SaveWorkBook.Save
   SaveWorkBook.Close
    Set eWindow = Nothing
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2008, 13:01
    #35328306
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть файл Excel скрытым?
ещё небольшой вариант
Код: plaintext
1.
2.
Dim sPath As String
sPath = ThisWorkbook.Path
MsgBox ExecuteExcel4Macro("'" & sPath + "\[" & "Book1.xls]Sheet1'!R1C1")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2008, 14:04
    #35328562
ДмиДми
ДмиДми
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть файл Excel скрытым?
> В процедуре Workbooks.Open нет параметров похожих на Hidden

И правильно. И нефиг. Вы уж простите меня великодушно за такую похабель, как Macro Record...

Sheets("Лист1").Select
ActiveWindow.SelectedSheets.Visible = False

Дальше, надо полагать, сами разберётесь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2008, 16:51
    #35329267
timursmeta
timursmeta
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть файл Excel скрытым?
Спасибо всем...получилось.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открыть файл Excel скрытым? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 449ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2162262]:
 0ms
get settings:
 8ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 155ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 205ms
total:  449ms
x
x
Закрыть


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