VB与EXCEL的问题

Question

我通过VB控制EXCEL的数据传送形成一个表格后想把该文件保存为以当天日期命名的CSV文件。例如2005年10月1日就是"20051001.CSV"，如此类推。每天一个文件，文件名也要随着日期的更改而自动改变。
  烦请高手帮忙一下。

Answer 1

Dim xls As Excel.Application
    Set xls = CreateObject("Excel.Application")
    '模版
    itemsum = modelDir & conModelfileItemSum
    ItemsumTemp = modelDir & Left(conModelfileItemSum, Len(conModelfileItemSum) - 4)
    
    xls.Visible = False
    xls.Workbooks.Open itemsum
    
    '4行
    xls.Cells(4, 1) = "统计期间:" & dateperiod & " "
    xls.Cells(4, 1).HorizontalAlignment = xlLeft
    xls.Cells(4, 1).Font.Bold = True
xls.ActiveWorkbook.SaveAs ItemsumTemp
    xls.Visible = True    Set xls = Nothing

Answer 2

Private Sub Command1_Click()
Dim Xlsapp As New Excel.Application
Dim Xlsbook As Excel.Workbook
Dim Xlssheet As Excel.Worksheet
Xlsapp.Visible = True
Set Xlsbook = Xlsapp.Workbooks.Add
Set Xlssheet = Xlsbook.Worksheets(1)
Xlssheet.Cells(1, 1) = "1-1"
Xlssheet.Cells(1, 2) = "1-2"
Xlssheet.Cells(2, 1) = "2-1"
Xlssheet.Cells(2, 2) = "2-2"
Xlssheet.Cells(3, 1) = "3-1"
Xlssheet.Cells(3, 2) = "3-2"
fln = "d:\" & Format(Date, "yyyyMMDD") & ".csv"
Xlsapp.ActiveWorkbook.SaveAs FileName:=fln, FileFormat:=xlCSV, _
        CreateBackup:=FalseXlsbook.Close
Set Xlssheet = Nothing
Set Xlsbook = Nothing
Xlsapp.Quit
Set Xlsapp = Nothing
MsgBox "保存文件" & fln & "成功！"
End Sub

Answer 3

那位大哥有如何在vb中给excel画诓的代码？

Answer 4

既然是生成CSV文件，还不如直接用VB生成用逗号分割的文本文件
何必绕弯子

Answer 5

jxgzay
很感激你的支持，你可不可以在程序里写上注解，因为现在我把程序复制到我的程序里出现好多错误。

Answer 6

出现错误可能是你没引用EXCEL对象，如果是这样的话：
运行VB，选择“工程/引用”菜单，引用一下EXCEL对象

Answer 7

同意crycoming(瞎编) CSV文件的格式你自己用文本编辑器打开看看就知道，自己生成一个根本没有什么难度

Answer 8

其实
在excel里录制一个宏
只要看一下宏代码就行了 vba和vb大部分通用的