vba引用 Illustrator模板 循环模板文字层把单元格的值循环改变文字层的信息 定义Illustrator变量 Dim aiApp As IllustratorApplication Dim aiDoc As IllustratorDocument Dim aiLayer As IllustratorLayer Dim aiTextItem As IllustratorTextFrame

For i = 1 To lastRow aiTextItem.Contents = ws.Cells(i, 1).Value If i = aiLayer.TextFrames.Count Then Exit For Next i End If Next aiLayer

'保存并关闭Illustrator文件 aiDoc.Save aiDoc.Close

'释放Illustrator变量 Set aiTextItem = Nothing Set aiLayer = Nothing Set aiDoc = Nothing Set aiApp = Nothing

'释放Excel变量 Set ws = Nothing Set wb = Nothing