操作excel的问题

dongbeiren 2003-10-17 11:10:19
如何判断sheet的存在与否,如怎样判断.xls文件中是否存在Worksheets("sheet4")?
...全文
49 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
speedyen 2003-12-05
  • 打赏
  • 举报
回复
up
dongbeiren 2003-10-20
  • 打赏
  • 举报
回复
楼上,我的问题以解决,只是你的代码我看不懂,还有乱码,你不来我都没法结贴:)
良朋 2003-10-18
  • 打赏
  • 举报
回复
看我的通用模块代码:
Module PrintToExcel
'--秸ノよ猭
'--Dim Title As String
'--Title = "侗睲虫 Excel 厨"
'--Call App1.PrintToExcel.PrintToExcel(Title)
'*** A sub-proc to save the DataSet to Excel
Public Sub PrintToExcel(ByVal Title As String)

'--浪代Excel穝Excel癸禜
Dim xlsOb
Try
xlsOb = CreateObject("Excel.Application")
Catch ex As Exception
MsgBox("眤﹟ゼ杆Excel")
End Try

If xlsOb.Version > "9.0" Then
MsgBox("眤惠璶杆Excel2000セ")
xlsOb.Quit()
End If

'--﹚竡跑秖
Dim row As Integer
Dim col As Integer

With xlsOb
'--穝糤Excel
.Visible = True
.Caption = Title
.WORKBOOKS.ADD()
.SHEETS(1).SELECT()
.APPLICATION.WINDOWSTATE = 3

'--糤砞竚夹肈
.Range("A1") = Title
Dim i As Integer
Dim myCol, myStr As String
myStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
col = objDS.Tables(0).Columns.Count
myCol = myStr.Substring(col - 1, 1)
With .Range("A1:" & myCol & 1)
.Merge()
.HorizontalAlignment = 3
.VerticalAlignment = 2
.FONT.BOLD = True
.FONT.SIZE = 18
End With

If objDS.Tables(0).Rows.Count > 0 Then

'--糤夹肈砞竚夹肈糴蔨
'--Cells(x,y), Columns(y,x)
With objDS.Tables(0)
For col = 0 To .Columns.Count - 1
xlsOb.Cells(2, col + 1) = .Columns.Item(col).ColumnName
xlsOb.Cells(2, col + 1).FONT.BOLD = True
myCol = myStr.Substring(col, 1)
xlsOb.ActiveSheet.Columns(myCol).ColumnWidth = 10
Next
End With

'--糤タゅ
With objDS.Tables(0)
For row = 0 To .Rows.Count - 1
For col = 0 To .Columns.Count - 1
xlsOb.Cells(row + 1 + 2, col + 1) = objDS.Tables(0).Rows(row).Item(col)
Next
Next
End With
End If
'--砞竚タゅ
With .Range("A2:" & myCol & row + 2)
.Borders.Weight = 2 'ゴΤ絬
.HorizontalAlignment = 4 '2,3,4竚オい癸霍
.VerticalAlignment = 2 '1,2,3竚い癸霍
End With
'--秨﹍ゴ饼凝,Τゲ璶玂痙
'.ActiveSheet.PageSetup.PaperSize = 9 'A4
'.ActiveSheet.PageSetup.Orientation = 2 '绢
.ActiveSheet.PrintPreview()
End With
xlsOb = Nothing
End Sub
End Module
dongbeiren 2003-10-18
  • 打赏
  • 举报
回复
up

16,549

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧