关于vb控制excel问题

叫我编程者 叫我编程者 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
excelXLS = CreateObject("Excel.Application")
excelWK = excelXLS.Workbooks.Open(strFieldName)
// j = 0
excelWS = excelWK.Worksheets(j + 1) //选中sheet1 excelWK.Sheets.Add()
excelWK.Sheets("Sheet1").Select()
excelWS.Range("A1:Y10").Select()
excelWS.Range("A1:Y10").Copy()
excelWK.Sheets("Sheet" & (j + 2)).Select()
excelWK.ActiveSheet.Paste()
excelWS = excelWK.Worksheets(j + 2)
excelWS.Cells.Select()
'excelWS.Selection.ColumnWidth = 5
excelWS.Cells.ColumnWidth = 5
excelWS = excelWK.Worksheets(j + 1)
流程是 在sheet1后面新加一个sheet 然后复制sheet1的 A1:Y10 粘贴到sheet2 然后全选sheet2 把列宽改成5 我在excelWS.Cells.Select()
这里报错 说类range 的select无效,求各位帮忙看看
...全文
评论 2
收藏 已收藏
分享
返回顶部
叫我编程者
VB 16,718 成员 110,520 内容