If Forms.ActiveForm.Name<>"出仓_基础数据" Then
Forms("出仓_基础数据").open
Else
If Tables("出仓基础数据").GetCheckedRows.count>0 Then
Dim Book As New XLS.Book(ProjectPath & "Attachments\大创出仓基础数据.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.AlignHorz=XLS.AlignHorzEnum.Center
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
Style.BorderColorTop = Color.black
Style.BorderColorBottom = Color.black
Style.BorderColorLeft = Color.black
Style.BorderColorRight = Color.black
Dim Style2 As XLS.Style = Book.NewStyle() '定义新样式
Style2.BackColor=Color.red
Style2.AlignHorz=XLS.AlignHorzEnum.Center
Style2.BorderTop = XLS.LineStyleEnum.Thin
Style2.BorderBottom = XLS.LineStyleEnum.Thin
Style2.BorderLeft = XLS.LineStyleEnum.Thin
Style2.BorderRight = XLS.LineStyleEnum.Thin
Style2.BorderColorTop = Color.black
Style2.BorderColorBottom = Color.black
Style2.BorderColorLeft = Color.black
Style2.BorderColorRight = Color.black
Dim Style3 As XLS.Style = Book.NewStyle() '定义新样式
Style3.BackColor=Color.yellow
Style3.AlignHorz=XLS.AlignHorzEnum.Center
Style3.BorderTop = XLS.LineStyleEnum.Thin
Style3.BorderBottom = XLS.LineStyleEnum.Thin
Style3.BorderLeft = XLS.LineStyleEnum.Thin
Style3.BorderRight = XLS.LineStyleEnum.Thin
Style3.BorderColorTop = Color.black
Style3.BorderColorBottom = Color.black
Style3.BorderColorLeft = Color.black
Style3.BorderColorRight = Color.black
Dim maxdate As Date
Dim mindate As Date
maxdate=Tables("出仓基础数据").current("出仓日期")
mindate=Tables("出仓基础数据").current("出仓日期")
Dim i As Integer
i=1
For Each r As Row In Tables("出仓基础数据").GetCheckedRows
If maxdate<r("出仓日期") Then
maxdate=r("出仓日期")
End If
If mindate>r("出仓日期") Then
mindate=r("出仓日期")
End If
Sheet(i,0).Value =i
Sheet(i,1).Value =cstr(r("出仓日期"))
Sheet(i,2).Value =r("fa piao号")
Sheet(i,3).Value =r("PO号")
i=i+1
Next
For r As Integer = 1 To i-1
For c As Integer =0 To 7
Sheet(r,c).Style = Style
sheet(r,4).style=style3
sheet(r,7).style=style3
sheet(r,5).style=style2
sheet(r,6).style=style2
Next
Next
Sheet(i+2,0).Style = Style3
Sheet(i+2,1).value = "由派车人员填写"
Sheet(i+3,0).Style = Style2
Sheet(i+3,1).value = "由报关行填写"
Dim Fname As String
Dim sname As String
If mindate<>maxdate Then
Fname="大创出仓基础数据" & cstr(mindate) & "-" & cstr(maxdate) & ".xls"
sname= cstr(mindate) & "-" & cstr(maxdate) & "基础数据"
Else
Fname="大创出仓基础数据" & cstr(mindate) & ".xls"
sname= cstr(mindate) & "基础数据"
End If
Fname=Fname.Replace("/",".")
Sname=Sname.Replace("/",".")
_savefile = ProjectPath & "Reports\出仓\填报数据\" & Fname
Book.Save(_savefile) '保存工作簿
Forms("打印预览").open
Tables("出仓基础数据").ClearCheckedRows
Else
messagebox.show("请选择记录,否则无法生成报表!")
Forms("出仓_基础数据").open
End If
End If
以上是导出为EXCEL格式的，我已经弄好了，现在想按上面的思路导出为一个ACCESS,代码不知如何写，求教
加好友 
发短信
Post By：2014/8/27 14:41:00 [只看该作者]
