代码应该没问题啊,如果非要找问题的话,如果你的图片是截图的话,为什么你的Range和Cells函数的第一个字母不是大写,难道是怎么设置的?如果不是的话改成大写试试?
看你追多少分吧。。折腾我这么久。。
xlSheetNew.Range("A1:H1").HorizontalAlignment = -4108
xlcenter不是access的属性值,导致access不认识。。赋值不成功。。
出现1004错误。
xlSheetNew.range("A1:H1").select
With Selection
.HorizontalAlignment = xlCenter
End With
这样呢,一般,你已经在前面用了xlSheetNew.activate不会出现这种情况的