You are currently viewing the Excel VBA section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developers’ questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
Changing date format in a file export from excel t
Any help or suggestions please..
Private Function cal_cmd(calEvent) As String
'Purpose: Convert event properties array into event command string
' convert date to yyyymmdd date code
calEvent(0) = Application.WorksheetFunction.Text(calEvent(0), "yyyymmdd")
' set undefined image sizes to zero (29-Apr-2004: image size parameters now optional)
'If Not IsNumeric(calEvent(6)) Then calEvent(6) = QUOTE & QUOTE
'If Not IsNumeric(calEvent(7)) Then calEvent(7) = QUOTE & QUOTE
cal_cmd = CMDBEG & calEvent(0) & DELIM
For i = 1 To EVENTCOLUMNS - 1
cal_cmd = cal_cmd & QuoteWord(calEvent(i)) & DELIM
cal_cmd = cal_cmd & QuoteWord(calEvent(EVENTCOLUMNS)) & CMDEND