Открытие внешних файлов, эксель

[КосмАС]

Привет.
Суть такова: запустить c экселя текстовый файл (без расширения файла, иногда с ним) с локальным или сетевым адресом прописанном в ячейке ( в каждой ячейке файл разный)
Все бы хорошо, если бы не файл без расширения, делаю функцию гиперссылка, с расширением открывает, без выдает ошибку (даже окна выбора программы открытия не выдает). Адрес на файл в ячейку нужный сделаю, вот как открыть вопрос, может можно как-то сделать запуск открытия в командной строке?
Дайте плиз ссылки на инфо если кто знает что похожее.
Заранее спасибо.

[somewhere]

Вообще, открытие файлов без расширения уже ставит вопрос: "Чем открывать?". У файла должна быть либо связанная программа либо он сам должен быть исполнимым. И то и другое определяется с помощью расширения.
Таким образом если знаете чем открывать файл, то проще запустить связанную программу с передачей ей имени файла в качестве параметра.

[КосмАС]

Вообще, открытие файлов без расширения уже ставит вопрос: "Чем открывать?". У файла должна быть либо связанная программа либо он сам должен быть исполнимым. И то и другое определяется с помощью расширения.
Таким образом если знаете чем открывать файл, то проще запустить связанную программу с передачей ей имени файла в качестве параметра.

Открывать блакнотом, там только текст, но файлы без расширений (программы для станков с ЧПУ), их много и они под порядковыми именами, вот и стоит задача облегчить поиск нужного файла по имеющимся в таблице данным и вбитым именам файлов.
Обдумывал различные варианты, даже минибраузер привентил в ВБ, правда в нем можно только прочесть, да и то только введя имя (пока только это осилил).
Конечно банально можно капировать полученный адрес к файлу и Win+R, - вставить - выбрать чем открыть, но мне кажется можно и легче.
Может както привинтить что-то типа:
cmd c:\WINDOWS\system32\notepad.exe -open c:\file
Но тут где-то ошибка видимо

[Naeel Maqsudov]

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

Sub qwe()
  
  fname = "c:\tmp\1"
  
  Open fname For Output As #1
  Print #1, [a1]
  Close #1
  
  
  Shell "notepad """ & fname & """"
  
  
End Sub

[КосмАС]

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

Sub qwe()
  
  fname = "c:\tmp\1"
  
  Open fname For Output As #1
  Print #1, [a1]
  Close #1
  
  
  Shell "notepad """ & fname & """"
  
  
End Sub

Спасибо, не все понял что есть что (простите нуб в программировании) но вот у меня получилось открыть заданный файл по коду:

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

Sub БагетРамкаСчелчек()
  
  fname = Лист1.Range ("A3")  * А3 - тут у меня адрес к папке
  
  
  Shell "notepad """ & fname & Лист2.Range ("A5")  * собственно сам файл
  
  
End Sub

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