Open a file with VBA Inventor

[Anonymous]

Hello Cany you tell me how can i open a file with VBA from Invenotr Thanks

[MechMachineMan]

I'm sure google could accomplish the task of answering this exact question.

[Anonymous]

I found this but id doesent work, can you help me?

Sub OpenDoc()

Dim oDoc As Document

oDoc = _InvApplication.Documents.Open _

("C: Temp\Part1.ipt")

End Sub

[MechMachineMan]

If you are using VBA rather than vb.net you will need to use Call And Set.

ie; Sub OpenDoc() Dim oDoc As Document Set oDoc = _InvApplication.Documents.Open("C: Temp\Part1.ipt") End Sub

[Anonymous]

[MechMachineMan]

Try putting it on separate lines.

[Anonymous]

Hello when i try to start my project in VB i bekommen this message:

[rossano_praderi · Accepted solution]

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("c:\test.xls")

objExcel.Application.Visible = True

objExcel.ActiveWorkbook.Close
objExcel.Application.Quit

Bregs

Rossano Praderi

[Anonymous]

Sorry for tagging onto an old thread, but how could I do this to open a .txt file?

[frederic.vandenplas]

Process.Start("c:\example.txt")

[Anonymous]

It comes up with object required?

[frederic.vandenplas]

This should work

Sub OpenTextFile()

Dim oTextFile As Variant
oTextFile = Shell("notepad.exe ""C:\test.txt""", vbNormalFocus)

End Sub

[Anonymous]

Thank you! This is perfect 🙂

[Anonymous]

This works for me but only as Read-Only, any insights on how to fix this?

[rossano_praderi]

Hi,

when we use the Excel application object you should use the help of that application as reference.

The follow option to control read/write mode for the "Open" method.

Set objWorkbook = objExcel.Workbooks.Open("c:\test.xls",, False)

 For reference see...

https://msdn.microsoft.com/en-us/VBA/Excel-VBA/articles/workbooks-open-method-excel

Bregs

Rossano Praderi