Exporting to Notepad - Select file name?

[SpeedyKevin]

Hello all!

I have the macro below that exports certain columns to a file (in this a m3u8 file). Is there a way I could have excel allow me to type in the file name I'd prefer before exporting?


Thanks,
Kevin





Sub ExportToNotepadOVERALL()


Sheets("OVERALL_CLIPS").Select

WriteRangeToTextFile Range("D6:D86"), "file4.m3u8", vbTab


Sheets("Sheet1").Select





Shell "notepad.exe file4.m3u8", vbMaximizedFocus




End Sub

 

[DanteAmor]

Try this

Sub ExportToNotepadOVERALL()
    Sheets("OVERALL_CLIPS").Select
[COLOR=#0000ff]    wname = InputBox("Enter file name")[/COLOR]
[COLOR=#0000ff]    If wname = "" Then Exit Sub[/COLOR]
    WriteRangeToTextFile Range("D6:D86"), [COLOR=#0000ff]wname[/COLOR], vbTab
    Sheets("Sheet1").Select
    Shell "notepad.exe file4.m3u8", vbMaximizedFocus
End Sub

 

[SpeedyKevin]

Try this

Sub ExportToNotepadOVERALL()
    Sheets("OVERALL_CLIPS").Select
[COLOR=#0000ff]    wname = InputBox("Enter file name")[/COLOR]
[COLOR=#0000ff]    If wname = "" Then Exit Sub[/COLOR]
    WriteRangeToTextFile Range("D6:D86"), [COLOR=#0000ff]wname[/COLOR], vbTab
    Sheets("Sheet1").Select
    Shell "notepad.exe file4.m3u8", vbMaximizedFocus
End Sub

Hello Dante!

Thanks for the reply, I tried using the Macro but get a Compile Error: Ambiguous name detected: WriteRangeToTextFile

 

[DanteAmor]

That's because you have 2 times or more this macro "WriteRangeToTextFile" in the same module

 

[SpeedyKevin]

That's because you have 2 times or more this macro "WriteRangeToTextFile" in the same module

ahh ok that makes sense. Fixed. Now is it possible to add the .m3u8 extension to the end of whatever is inputted in the Inputbox?

 

[DanteAmor]

Try:

Sub ExportToNotepadOVERALL()
    Sheets("OVERALL_CLIPS").Select
    wname = InputBox("Enter file name")
    If wname = "" Then Exit Sub
    WriteRangeToTextFile Range("D6:D86"), wname [B][COLOR=#0000ff]& ".m3u8"[/COLOR][/B], vbTab
    Sheets("Sheet1").Select
    Shell "notepad.exe file4.m3u8", vbMaximizedFocus
End Sub

 

[SpeedyKevin]

Try:

Sub ExportToNotepadOVERALL()
    Sheets("OVERALL_CLIPS").Select
    wname = InputBox("Enter file name")
    If wname = "" Then Exit Sub
    WriteRangeToTextFile Range("D6:D86"), wname [B][COLOR=#0000ff]& ".m3u8"[/COLOR][/B], vbTab
    Sheets("Sheet1").Select
    Shell "notepad.exe file4.m3u8", vbMaximizedFocus
End Sub

Hot ****! its nearly perfect! My final quesiton would be regarding this line

Shell "notepad.exe file4.m3u8", vbMaximizedFocus

I've been trying to get it to open the file we just created but can't seem to do it. I tried replacing the generic file name with "wname.m3u8" but that didn't work. Thoughts?

 

[SpeedyKevin]

Never mind got it to work with this
Shell "notepad.exe " & wname & ".m3u8", vbMaximizedFocus


Thanks for the help! Really appreciate it!

 

[DanteAmor]

How about:

Sub ExportToNotepadOVERALL()
    Sheets("OVERALL_CLIPS").Select
    wname = InputBox("Enter file name")
    If wname = "" Then Exit Sub
    WriteRangeToTextFile Range("D6:D86"), wname & ".m3u8", vbTab
    Sheets("Sheet1").Select
    Shell "notepad.exe " & wname & ".m3u8", vbMaximizedFocus
End Sub