主题:moz 大师请进!!
其实每个问题都会有不同的办法,
应该看问题的不同需求择优使用,
关于VBA for EXCEL编程其实很简单,
1. 了解EXCEL的对象
2. 了解可提供的属性和操作
网上有很多关于EXCEL编程的教程,
我学习EXCEL是从教程,录制宏,帮助中走过来的,
感觉并不难.技巧是从使用和学习中来的.固步自封不会有进步.
仅仅是数据复制的话,我不明白为什么要一大堆代码,而不用Copy to
如果是为了避免那个16383的限制的话那也没得说,
(其实如果真有这样的要求分次Copy to就可以了)
如果没有其他要求的话,看看以下代码能否实现同样的效果?
还有的就是那个变量Selection使用得实在不是很明智.
引用:
F1=sys(2023)-"\"-sys(3)-".xls"
SELECT 表1
COPY TO (F1) TYPE xl5
E_x=GETOBJECT(FULLPATH(F1))
WITH E_x.sheets(1)
WITH .rows(1)
.font.bold=.t.
.horizontalalignment=3
ENDWITH
WITH .cells(1,1).currentregion
.font.size=9
.Borders.Linestyle=1
.columns.autofit
.rows.autofit
ENDWITH
.PageSetup.PrintTitleRows = "$1:$1"
ENDWITH
WITH E_x.Application
.Visible= .T.
.Windows(E_x.Name).Visible= .T.
ENDWITH
VBA for EXCEL最大的好处就是几乎所有人手操作都可以使用代码来完成.
应该看问题的不同需求择优使用,
关于VBA for EXCEL编程其实很简单,
1. 了解EXCEL的对象
2. 了解可提供的属性和操作
网上有很多关于EXCEL编程的教程,
我学习EXCEL是从教程,录制宏,帮助中走过来的,
感觉并不难.技巧是从使用和学习中来的.固步自封不会有进步.
仅仅是数据复制的话,我不明白为什么要一大堆代码,而不用Copy to
如果是为了避免那个16383的限制的话那也没得说,
(其实如果真有这样的要求分次Copy to就可以了)
如果没有其他要求的话,看看以下代码能否实现同样的效果?
还有的就是那个变量Selection使用得实在不是很明智.
引用:
F1=sys(2023)-"\"-sys(3)-".xls"
SELECT 表1
COPY TO (F1) TYPE xl5
E_x=GETOBJECT(FULLPATH(F1))
WITH E_x.sheets(1)
WITH .rows(1)
.font.bold=.t.
.horizontalalignment=3
ENDWITH
WITH .cells(1,1).currentregion
.font.size=9
.Borders.Linestyle=1
.columns.autofit
.rows.autofit
ENDWITH
.PageSetup.PrintTitleRows = "$1:$1"
ENDWITH
WITH E_x.Application
.Visible= .T.
.Windows(E_x.Name).Visible= .T.
ENDWITH
VBA for EXCEL最大的好处就是几乎所有人手操作都可以使用代码来完成.