Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Как открыть XLS файл? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как открыть XLS файл? (Макросы/Sub)
Как открыть XLS файл?
ComiC Дата: Четверг, 04.06.2015, 12:00 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Господа, имеется файл, который благополучно открывает DOC файлы. Со скриптом ранее помогли тут (ни разу не программист)
Теперь появилась потребность в открытии файла XLSX, но пишет "Файл поврежден"
По содержанию скрипта понимаю, что он действительно "написан" для открытия Ворд документа.

Спасибо )
К сообщению приложен файл: 7023657.xls (77.5 Kb)


Сообщение отредактировал ComiC - Четверг, 04.06.2015, 13:43
 
Ответить
СообщениеГоспода, имеется файл, который благополучно открывает DOC файлы. Со скриптом ранее помогли тут (ни разу не программист)
Теперь появилась потребность в открытии файла XLSX, но пишет "Файл поврежден"
По содержанию скрипта понимаю, что он действительно "написан" для открытия Ворд документа.

Спасибо )
Автор - ComiC
Дата добавления - 04.06.2015 в 12:00
ComiC Дата: Четверг, 04.06.2015, 12:07 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Случайно ошибся подгруппой :( Не туда написал вопрос, прошу простить, ну и при необходимости удалить мою тему. Не хотел...
 
Ответить
СообщениеСлучайно ошибся подгруппой :( Не туда написал вопрос, прошу простить, ну и при необходимости удалить мою тему. Не хотел...
Автор - ComiC
Дата добавления - 04.06.2015 в 12:07
SLAVICK Дата: Четверг, 04.06.2015, 12:23 | Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Так?
Нужно вписать полное имя файла(включая путь)
Например:
"c:\Users\ззз\Downloads\Книга1.xls"

[vba]
Код
Sub OP()
Dim f$
     f = InputBox("Полное имя файла")
     If f = "" Then Exit Sub
     Workbooks.Open Filename:=f
End Sub
[/vba]
К сообщению приложен файл: 8859543.xls (36.5 Kb)

Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеТак?
Нужно вписать полное имя файла(включая путь)
Например:
"c:\Users\ззз\Downloads\Книга1.xls"

[vba]
Код
Sub OP()
Dim f$
     f = InputBox("Полное имя файла")
     If f = "" Then Exit Sub
     Workbooks.Open Filename:=f
End Sub
[/vba]
Автор - SLAVICK
Дата добавления - 04.06.2015 в 12:23
ComiC Дата: Четверг, 04.06.2015, 13:37 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
вот пример (к сожалению пост переносился из другого подфорума, и приложение видимо не сохранилось)

Сам скрипт:

[vba]
Код
Private Sub pp3_Click()

If Application.Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing Then Exit Sub
ActiveCell.EntireRow.Copy Sheets("Áóôåð").Rows(2)
cFileD = ActiveWorkbook.Path & "\îòêðûòü_doc_ðàáîòàåò.doc"
Set WD = CreateObject("Word.Application")
WD.Visible = True
WD.Documents.Open Filename:=cFileD
Set WD = Nothing
End Sub

Private Sub CommandButton1_Click()
If Application.Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing Then Exit Sub
ActiveCell.EntireRow.Copy Sheets("Áóôåð").Rows(2)
cFileD = ActiveWorkbook.Path & "\à_êàê_îòêðûòü.xlsx"
Set WD = CreateObject("Word.Application")
WD.Visible = True
WD.Documents.Open Filename:=cFileD
Set WD = Nothing
End Sub
[/vba]

Верхний работает нормально. Не работает Нижний который пытается открыть xls.
Надеюсь никого не запутал %)
[moder]1. Пользуйтесь спецтегами оформления. Для кода - кнопка #, полный список - ссылка на него в Правилах форума.
И при копировании переходите на русский язык в приложении, откуда копируете. Тогда не будет кракозябрин.
К сообщению приложен файл: xls.xls (77.5 Kb)


Сообщение отредактировал ComiC - Четверг, 04.06.2015, 13:45
 
Ответить
Сообщениевот пример (к сожалению пост переносился из другого подфорума, и приложение видимо не сохранилось)

Сам скрипт:

[vba]
Код
Private Sub pp3_Click()

If Application.Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing Then Exit Sub
ActiveCell.EntireRow.Copy Sheets("Áóôåð").Rows(2)
cFileD = ActiveWorkbook.Path & "\îòêðûòü_doc_ðàáîòàåò.doc"
Set WD = CreateObject("Word.Application")
WD.Visible = True
WD.Documents.Open Filename:=cFileD
Set WD = Nothing
End Sub

Private Sub CommandButton1_Click()
If Application.Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing Then Exit Sub
ActiveCell.EntireRow.Copy Sheets("Áóôåð").Rows(2)
cFileD = ActiveWorkbook.Path & "\à_êàê_îòêðûòü.xlsx"
Set WD = CreateObject("Word.Application")
WD.Visible = True
WD.Documents.Open Filename:=cFileD
Set WD = Nothing
End Sub
[/vba]

Верхний работает нормально. Не работает Нижний который пытается открыть xls.
Надеюсь никого не запутал %)
[moder]1. Пользуйтесь спецтегами оформления. Для кода - кнопка #, полный список - ссылка на него в Правилах форума.
И при копировании переходите на русский язык в приложении, откуда копируете. Тогда не будет кракозябрин.
Автор - ComiC
Дата добавления - 04.06.2015 в 13:37
SLAVICK Дата: Четверг, 04.06.2015, 13:49 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Вот :)
[vba]
Код
Private Sub CommandButton1_Click()
Dim cFileD$
'    If Application.Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing Then Exit Sub
'    ActiveCell.EntireRow.Copy Sheets("Буфер").Rows(2)
      cFileD = ActiveWorkbook.Path & "\а_как_открыть.xlsx"
Добавил:
      If Dir(cFileD) = "" Then Exit Sub
      Workbooks.Open Filename:=cFileD
Убрал:
'    Set WD = CreateObject("Word.Application")
'    WD.Visible = True
'    WD.Documents.Open Filename:=cFileD
'    Set WD = Nothing
End Sub
[/vba]

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Четверг, 04.06.2015, 13:50
 
Ответить
СообщениеВот :)
[vba]
Код
Private Sub CommandButton1_Click()
Dim cFileD$
'    If Application.Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing Then Exit Sub
'    ActiveCell.EntireRow.Copy Sheets("Буфер").Rows(2)
      cFileD = ActiveWorkbook.Path & "\а_как_открыть.xlsx"
Добавил:
      If Dir(cFileD) = "" Then Exit Sub
      Workbooks.Open Filename:=cFileD
Убрал:
'    Set WD = CreateObject("Word.Application")
'    WD.Visible = True
'    WD.Documents.Open Filename:=cFileD
'    Set WD = Nothing
End Sub
[/vba]
Автор - SLAVICK
Дата добавления - 04.06.2015 в 13:49
AndreTM Дата: Четверг, 04.06.2015, 13:52 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 501 ±
Замечаний: 0% ±

2003 & 2010
Думаю, можно было бы провести аналогии: :)
[vba]
Код
Private Sub CommandButton1_Click()    
     If Application.Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing Then Exit Sub    
     ActiveCell.EntireRow.Copy Sheets("Буфер").Rows(2)    
     cFileX = ActiveWorkbook.Path & "\а_как_открыть.xlsx"    
     Set WB = CreateObject("Excel.Application")    
     WB.Visible = True    
     WB.Workbooks.Open Filename:=cFileX    
     Set WB = Nothing    
End Sub
[/vba]

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Четверг, 04.06.2015, 23:12
 
Ответить
СообщениеДумаю, можно было бы провести аналогии: :)
[vba]
Код
Private Sub CommandButton1_Click()    
     If Application.Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing Then Exit Sub    
     ActiveCell.EntireRow.Copy Sheets("Буфер").Rows(2)    
     cFileX = ActiveWorkbook.Path & "\а_как_открыть.xlsx"    
     Set WB = CreateObject("Excel.Application")    
     WB.Visible = True    
     WB.Workbooks.Open Filename:=cFileX    
     Set WB = Nothing    
End Sub
[/vba]
Автор - AndreTM
Дата добавления - 04.06.2015 в 13:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как открыть XLS файл? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!