Posts by cs22

Quote from Ashu2019

please share the screen shot of the error

That's what is throwing me, it doesn't give an error. When run it pops up a file explorer window for half a second and closes. Even when told to stop on all errors it runs the same. So as much as I would like to in order to help you out with what's going on, there's just no screenshot to take.

If you would like I can screenshot the code from the actual window and then do my best to nab the file explorer window but it's not likely.

Quote from Ashu2019

Mate, Unless you provide the actual code or an sample workbook it will be difficult for us to come to any conclusion.

Minus the folder path which is just "G:\\WA3223\WA\Inventory Archive\2019\Dec\" The code posted is exact.

Quote from Ashu2019

Cs you may want to throughly check ur code.

Code

myFileName = mySaveFolder & "Inventory Balance" & " " & DateFormat

with

Code

myFileName = mySaveFolder & "\Inventory Balance" & " " & DateFormat

This becomes a redundant slash if my save folder path ends with / ? It doesn't in my code example but the actual path does.

Quote from Ashu2019

Have to look at the below line.

Code

replace this
myWB.SaveAs saveFolder & DateFormat & " " & objAtt.FileName & "x", FileFormat:=51
with
myWB.SaveAs saveFolder & DateFormat & " " & objAtt.FileName & ".xlsx", FileFormat:=51

While that was a mistake on my part, it still does not solve the overall issue. A File explorer dialog box pops up for less than a second and disappears when running the rule.

Hi, So each day I get emails with attachments in csv form but I need them to be in xlsx form when saved. So what I am trying to do is use a rule within outlook that will take the CSV file, convert it, and save it as a xlsx in another folder. Here is what I have so far but it doesn't seem to function properly.

Public Sub SaveCSVtoExcel(itm As Outlook.MailItem)

Dim oAttachment As Outlook.Attachment
Dim mySaveFolder As String
Dim objSelection As Outlook.Selection
Dim myFileName As String
Dim DateFormat
Dim objOA As Outlook.Application

Dim myWB As Excel.Workbook
Dim myApp As Excel.Application

Set objOA = CreateObject("Outlook.Application")
Set objSelection = obj.ActiveExplorer.Selection

mySaveFolder = "myfolder/forsaving"
Debug.Print itm.Subject
DateFormat = Format(Now, "mmddyy")

For Each oAttachment In itm.Attachments
myFileName = mySaveFolder & "Inventory Balance" & " " & DateFormat

Select Case Right(objAtt, Len(objAtt) - InStrRev(objAtt, "."))

Case "csv"
objAtt.SaveAsFile attchmtName

If myApp Is Nothing Then
Set myApp = CreateObject("Excel.Application")
End If
Set myWB = myApp.Workbooks.Open(attchmtName)

myWB.SaveAs saveFolder & DateFormat & " " & objAtt.FileName & "x", FileFormat:=51

myWB.Close False

Kill attchmtName

myApp.Quit

Case "xlsx", "xlsm"

' save in original format
objAtt.SaveAsFile attchmtName

End Select

Next

Set myWB = Nothing
Set myApp = Nothing

Set objOA = Nothing
Set objSelection = Nothing

End Sub