VBA code to save the file with another name
Accepted solution
This is AutoCAD VBA forum, I am not sure why you need to start with Excel to save AutoCAD drawing (as different drawing file name).
You use AcadDocument.SaveAs() to save current drawing to a given file name. Say, you have a template opened in AutoCAD, and want to save it as "MyDwg01.dwg", "MyDwg02.dwg"... "MyDwg15.dwg", you can:
Dim folder As String
Dim i as Integer
Dim fName As String
folder="C:\MyWork"
For i = 1 To 15
fName="MyDwg" & Iif(i<10,"0" & i, i) & ".dwg"
ThisDrawing.SaveAs folder & "\" & fName
Next
Note, after the For...loop, in the folder "C:\MyWork", you will see 15 drawing file saved, but in AutoCAD, only one drawing is open ("MyDwg15.dwg").
There are a lot sample code you can find if you google the net for Excel automation. Here is some quick code off my head without actual test:
Public Sub SaveNewDrawings()
Dim fileNames as Variant
Dim folder As String
Dim i As Integer
folder="C:\MyDrawings\"
fileNames = GetFileNamesFromExcelSheet("C:\MyDrawings\MyFileList.xlsx")
If Ubound(fileNames)<0 Then Exit Sub
For i=0 to Ubound(fileNames)
ThisDrawing.SaveAs folder & fileNames(i)
Next
End Sub
Private Function GetFileNamesFromExcelSheet(sheehFile As String) As Variant
Dim fNames() As String
Dim fName As String
Dim i As Integer
Dim xlsApp As Excel.Application
Dim sheet As Worksheet
Dim excelStarted As Boolean
On Error Resume Next
Set xlsApp=GetObject( , "Excel.Application")
If Err.Number<>0 Then
Err.Clear
Set xlsApp=CreateObject("Excel.Application")
excelStarted = True
Enhd If
On Error Goto 0
If xlsApp Is Nothing Then
MsgBox "Cannot open Excel application!"
Else
xlsApp.Workbooks.Open sheetFile
'' Assume the active sheet is the sheet containing the data (A1 to A15)
'' otherwise you need to identify which sheet to read the data
For i=0 to 14
fName=CStr(ActiveSheet.Range("A" & i+1).Value)
ReDim Preserve fNames(i)
fNames(i)=fName
Next
End If
If excelStarted then xlsApp.Quit
GetFileNamesFromExcelSheet=fNames
End Function
Again, the code is not tested. Just give you an idea.
HTH
Hi, I just found this post and it's exactly what I've been trying to do. I've got a AutoCAD template and would like to save any number of copies based on a list of names in Excel. When I ran the untested code, I got the below error. My excel has no headers and the names are in A1:A5. I appreciate any help you can provide.
Luckily, I did claim my code was "off my head without actual test"
Since the code runs in AutoCAD side, it will not automatically know what "ActiveSheet" is. So for the line of code that raises the error, change it to:
fName=CStr(xlaApp.ActiveSheet.Range("A" & i+1).Value)
HTH
I updated the code and it resolved the error I was having, but created a new error. Thanks for any help you can provide.
You misspelled xlsApp as xlaApp.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
If you use Option Explicit at the beginning of your module's declaration section, vba will alert you when you type a variable name without first explicitly declaring it.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.