Export Excel SpreadSheet with VBA.

[555Rage]

I have a main workbook which i use to generate Purchase Orders in spreadsheets. There are 4 types of purchase orders that would be exported into their own respective workbook. I want to have a button that would export the PO into another workbook.
I am fairly new to VBA so please explain as simplistic as possible (: Thanks in advance!

[patel45]

Sub SaveSheetToFile()
    myPath = "D:\DATA\test\"
    arr = Array("Sheet1", "Sheet2", "Sheet3","Sheet4") '  put real sheets names in array arr
    For j = 0 To 3
      Filenam = arr(j)
      Sheets(Filenam).Copy ' create new workbook with single sheet for saving
      ActiveWorkbook.SaveAs Filename:=myPath & Filenam & ".xlsx", CreateBackup:=False
      ActiveWorkbook.Close
    Next
End Sub

[555Rage]

Hi,

Can you explain to me about the code please,and what is j, is it a variable?if so, dont you need to define it?

[patel45]

j is a variable, with vba is possible, but not recommended, to avoid declaration of variables.
see comments on above code