Excel VBA 如何生成.csv或.xlsx文件

生成.csv或.xlsx文件，本身是件easy的事情，比如可以用R,Python。。。但R有个局限不能对excel里的文字底纹格式等进行修改，如需要字体加粗、底纹为蓝等等，于是想到用excel的VBA来实现。

如何使用VBA：

方法1：录宏，看懂代码（掌握基本语法函数），自己动手改

方法2：像生成csv或者其他文件不能录宏的，求百度，看懂代码，自己改

case1

生成《2015-10-08置顶价格调整方案通知.xlsx》文件

Sub 调价通知()
 'excel控制word,生成新文件，插入图片和文件名，保存
'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library
'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library
  y = Year(Date)
  m = Month(Date)
  If Len(m) = 1 Then m = "0" & m
  d = Day(Date)
  If Len(d) = 1 Then d = "0" & d
  a = y & "-" & m & "-" & d
  file = a & "置顶价格调整方案通知"
  file_moban = a & &#