摘要:
点击上图中的"显示Excle内置对话框",显示效果如下:源代码:Public Sub 显示Excel内置对话框() UserForm.ShowEnd Sub附件下载 阅读全文
posted @ 2017-08-10 10:12
OLIVER_QIN
阅读(555)
评论(0)
推荐(0)
摘要:
数据如上图所示,点击RUN后的运行结果如下: 得到该文件夹,文件夹内容如上图。 代码如下: Private Sub Command_OLIVER() Dim arr arr = Range("A1:C" & [a65536].End(3).Row) Dim i As Long, wName As S 阅读全文
posted @ 2017-08-10 09:32
OLIVER_QIN
阅读(2264)
评论(4)
推荐(1)
浙公网安备 33010602011771号