‘打开某个路径下的工作薄(文档)
Sub dakaibiao()
excel.application.dispayalters=false ‘关闭屏幕更新
excel.application.ScreenUpdating=false
‘打开mac下面的某个工作薄(文档)
Workbooks.Open FileName:="/Users/lixiangyang/Downloads/地图.xlsx"
‘当前工作薄表集合的第一个表的单元格赋值
Activeworkbook.sheets(1).range(“C30”)=“abcd”
Activeworkbook.sheets(1).name=“TEST”
Activeworkbook.save ‘保存
Activeworkbook.close ‘关闭
excel.application.dispayalters=ture
excel.application.ScreenUpdating=ture
End Sub
‘创建一个表保存到固定路径
Sub chuanjian()
Workbooks.Add ‘创建一个表
‘给当前工作薄表集合中的表1单元格赋值
ActiveWorkbook.Sheets(1).Range("a1") = "asdasda”
‘当前工作薄保存的固定的路径
ActiveWorkbook.SaveAs FileName:="/Users/lixiangyang/Downloads/test.xlsx"
ActiveWorkbook.Close
End Sub
‘将一个工作薄的表处理后分成多个工作薄并保存在特定的路径
Sub caozuobiao()
Dim sht As