Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming,microsoft.public.fox.programmer.exchange
|
|||
|
|||
can't use Application.Run() with apostrophe in file name
I need to use the application.run method to invoke macros in workbooks I
create. Unfortunately, the workbooks can contain apostrophes in the file name. I tried double quoting the filename if it contains an apostrophe, but that didn't work: *double quote the file name if it contains an apostrophe lcCAMNotebookFileName = loCAMNotebook.Name IF CHR(39) $ lcCAMNotebookFileName lcMacroName = [''] + lcCAMNotebookFileName + [''] + "!" + EXCEL_MACRO_NAME ELSE lcMacroName = ['] + lcCAMNotebookFileName + ['] + "!" + EXCEL_MACRO_NAME ENDIF *--run the Excel formatting macros TRY loExcelApp.Run( lcMacroName ) CATCH TO loErr brserror( "couldn't find macro " + EXCEL_MACRO_NAME) SET STEP ON DEBUGOUT loerr.ErrorNo DEBUGOUT loerr.Message ENDTRY |
#2
Posted to microsoft.public.excel.programming,microsoft.public.fox.programmer.exchange
|
|||
|
|||
can't use Application.Run() with apostrophe in file name
no brackets
single quotes outside repeat existing singlequote Application.Run "'no''show.xls'!myProc" -- keepITcool | www.XLsupport.com | keepITcool chello nl | amsterdam Woody wrote : I need to use the application.run method to invoke macros in workbooks I create. Unfortunately, the workbooks can contain apostrophes in the file name. I tried double quoting the filename if it contains an apostrophe, but that didn't work: *double quote the file name if it contains an apostrophe lcCAMNotebookFileName = loCAMNotebook.Name IF CHR(39) $ lcCAMNotebookFileName lcMacroName = [''] + lcCAMNotebookFileName + [''] + "!" + EXCEL_MACRO_NAME ELSE lcMacroName = ['] + lcCAMNotebookFileName + ['] + "!" + EXCEL_MACRO_NAME ENDIF *--run the Excel formatting macros TRY loExcelApp.Run( lcMacroName ) CATCH TO loErr brserror( "couldn't find macro " + EXCEL_MACRO_NAME) SET STEP ON DEBUGOUT loerr.ErrorNo DEBUGOUT loerr.Message ENDTRY |
#3
Posted to microsoft.public.excel.programming,microsoft.public.fox.programmer.exchange
|
|||
|
|||
can't use Application.Run() with apostrophe in file name
Doubling-up the apostrophe works for me. Don't forget leading and trailing
apostrophes as well Application.Run "'VPinMame Roms''99.xls'!Bob()" -- HTH Bob Phillips "Woody" wrote in message .119... I need to use the application.run method to invoke macros in workbooks I create. Unfortunately, the workbooks can contain apostrophes in the file name. I tried double quoting the filename if it contains an apostrophe, but that didn't work: *double quote the file name if it contains an apostrophe lcCAMNotebookFileName = loCAMNotebook.Name IF CHR(39) $ lcCAMNotebookFileName lcMacroName = [''] + lcCAMNotebookFileName + [''] + "!" + EXCEL_MACRO_NAME ELSE lcMacroName = ['] + lcCAMNotebookFileName + ['] + "!" + EXCEL_MACRO_NAME ENDIF *--run the Excel formatting macros TRY loExcelApp.Run( lcMacroName ) CATCH TO loErr brserror( "couldn't find macro " + EXCEL_MACRO_NAME) SET STEP ON DEBUGOUT loerr.ErrorNo DEBUGOUT loerr.Message ENDTRY |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
New Application opening for each file | Excel Discussion (Misc queries) | |||
New Application opening for each file | Setting up and Configuration of Excel | |||
opening a file in Excel starts application but dose not open file | Excel Discussion (Misc queries) | |||
Application opens but the file does not? | Excel Discussion (Misc queries) | |||
xcel file icon opens application but not file. | Excel Discussion (Misc queries) |