谁有关于excel对象的详细说明书或源代码(*******在线等候,进者有分,分数够可以再加*******)

kingbear2000 2003-02-14 12:35:23
附加一个问题,在vb中如何定义导出到excel中数据的行高和列宽.如何取得页面设置的一些信息.
...全文
70 18 打赏 收藏 转发到动态 举报
写回复
用AI写文章
18 条回复
切换为时间正序
请发表友善的回复…
发表回复
jin888 2003-03-02
  • 打赏
  • 举报
 回复
up
GladisionBoy 2003-03-02
  • 打赏
  • 举报
 回复
WorkSheet对象的PageSetup属性包含了工作表的页面设置选项。

下面的内容是在Excel XP 类库帮助中粘下来的
--------------------------------
PageSetup 对象

代表页面设置说明。PageSetup 对象包含所有页面设置的属性（左边距、底部边距、纸张大小等）。

PageSetup 对象用法
可用 PageSetup 属性返回一个 PageSetup 对象。下例将打印方向设置为横向，并打印工作表。

With Worksheets("Sheet1")
.PageSetup.Orientation = xlLandscape
.PrintOut
End With
With 语句使同时设置若干属性变得简单而迅速。下例设置第一张工作表的所有页边距。

With Worksheets(1).PageSetup
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1.5)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
End With
--------------------
具体内容查看Visual Basic 帮助。
kingbear2000 2003-02-28
  • 打赏
  • 举报
 回复
谢谢大家！如何实现自定义纸张，指定格式的套打，数据来自数据库中的记录。
jzd1997 2003-02-27
  • 打赏
  • 举报
 回复
Private Sub slExportInvoice(ByVal sFileN As String)
'Start by jiang 2002/10/11
On Error GoTo ErrHandler
Dim lsCaseno As String
Dim lsInvoice As String
Dim lsContainer As String
Dim myworkspace As Workspace
Dim mydatabase As DataBase
Dim mytable As Recordset
Dim iloop As Integer
Dim sFileName As String
Dim sPathN As String
Dim exlApp As Excel.Application
Dim lRow As Long
Dim lCol As Long
Dim lInvRow1 As Long
Dim lConRow1 As Long
Dim lCasRow1 As Long

Me.Enabled = False
Me.MousePointer = vbHourglass
lblts.Visible = True
lblts.Caption = "ﾊｾﾝﾗﾉﾖﾐ..."
DoEvents
Set myworkspace = Workspaces(0)
Set mydatabase = myworkspace.OpenDataBase(G_PATH_WMDB & "\" & GS_MDB_INVOICE_PRT)
Set mytable = mydatabase.OpenRecordset("select * from [invoice attached] order by invoice,conterner,[LOT CASE/MODULE NO],[PART NO]", dbOpenDynaset, dbReadOnly)

' If Dir(G_PATH_EXPORT, vbDirectory) = "" Then 'ｼ・鯡ﾇｷ贇ﾚｵｼｳｿﾂｼ
' MkDir G_PATH_EXPORT
' End If
'
' sPathN = G_PATH_EXPORT & "\" & "Invoice "
sPathN = sFileN
Set exlApp = CreateObject("excel.application")
With exlApp
.ScreenUpdating = False
.DisplayAlerts = False
lbl_NewInvoice:
.Workbooks.Add (1)
'ﾉ靹ﾃﾁﾐｿ・
.Columns(1).ColumnWidth = 12
.Columns(2).ColumnWidth = 14
.Columns(3).ColumnWidth = 12
.Columns(4).ColumnWidth = 14
.Columns(5).ColumnWidth = 40
.Columns(6).ColumnWidth = 8
.Columns(7).ColumnWidth = 8
.Columns(8).ColumnWidth = 10
''Header
.Rows(2).HorizontalAlignment = xlCenter
'Bold
.Rows(2).Font.Size = 14
.Rows(2).Font.Bold = True
.Cells(2, 4) = "INVOICE ATTACHED LIST(PARTS)"
.Rows(4).Font.Size = 10
.Rows(4).Font.Bold = True
.Rows(4).HorizontalAlignment = xlCenter
.Cells(4, 1) = "INVOICE NO. :"
.Cells(4, 2) = "CONTAINER NO."
.Cells(4, 3) = "CASE NO."
.Cells(4, 4) = "PART NO."
.Cells(4, 5) = "DESCRIPTION OF GOODS"
.Cells(4, 6) = "Q'TY(PCS)"
.Cells(4, 7) = "UNIT PRICE"
.Cells(4, 8) = "FOB AMOUNT"
'add by tl
' .Cells(4, 1) = "INVOICE NO. :"
' .Cells(5, 1) = "CONTAINER NO."
' .Cells(6, 1) = "CASE NO."
' .Cells(6, 2) = "PART NO."
' .Cells(6, 3) = "DESCRIPTION OF GOODS"
' .Cells(6, 4) = "Q'TY(PCS)"
' .Cells(6, 5) = "UNIT PRICE"
' .Cells(6, 6) = "FOB AMOUNT"
'end

'ﾉ靹ﾃｱﾟﾏﾟ
.Cells.Select
.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With .Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
.Rows("1:3").Select
.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
.Selection.Borders(xlEdgeTop).LineStyle = xlNone
.Selection.Borders(xlEdgeRight).LineStyle = xlNone
.Selection.Borders(xlInsideVertical).LineStyle = xlNone
.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
.Range("B9").Select
'Title
lRow = 5
lsCaseno = ""
lsContainer = ""
lsInvoice = ""
lInvRow1 = 5
lConRow1 = 5
lCasRow1 = 5
While mytable.EOF = False
.Rows(lRow).Font.Size = 10
'Invoiceｱ莉ｯ
If lsInvoice <> mytable.Fields("invoice") Then
If lsInvoice <> "" Then
.Range("A" & lInvRow1, "A" & lRow - 1).Select
.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
nydelphi 2003-02-26
  • 打赏
  • 举报
 回复
up
angle1219 2003-02-26
  • 打赏
  • 举报
 回复
哈哈我做的好吗。要给我分哦。
angle1219 2003-02-26
  • 打赏
  • 举报
 回复
'ADO连接
public gsCn As string
gsCn=”Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=;Initial Catalog= Investment;Data Source= ServerName”
'生成 TXT文件
Public sub Qtxt(Question SQL statement as string )
Dim i As Integer
Dim j As Integer
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, s
Dim rs As New ADODB.Recordset
rs.open Question one SQL statement,gsCn,1,1
''创建一个文件
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateTextFile ("c:\" & rs.recordcount &".txt")
Set f = fs.GetFile("c:\" & rs.recordcount &".txt")
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
Do while not rs.eof
ts.write " " & rs.fields(“index”).value
rs.movenext
loop
rs.close
ts.Close'关闭该文件
End sub

'生成Excel文件
Public sub Qexcel(Question SQL statement as string)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'生成Excel所需的引用
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim iEx As New Excel.Application
Dim iExcel As Object
iEx.Workbooks.Add
Set iExcel = iEx.Worksheets("sheet1")
iEx.Sheets.Select 1
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim rs As New ADODB.Recordset
rs.open Question SQL statement as string,gsCn,1,1
Do while not rs.eof
I=1
iEx.Range("A" & i & ":G" & i).Merge ‘合并单元格
iEx.Range("A" & i).Value = rs.fields(“index”).value
Rs.movenext
Loop
Rs.close
iExcel.SaveAs "C:\" & FileName
End sub
'生成Word文件
Public sub Qword(Question SQL statement as string)
Dim wd As Object
Set wd = CreateObject ("Word.Basic")
wd.FileNewDefault
wd.FontSize 20
Dim rs As New ADODB.Recordset
Rs.open Question SQL statement,gsCn,1,1
Do while not rs.eof
wd.Insert rs(“index”).value
Rs.movenext
Loop
Rs.close
wd.FileSaveAs "C:\*.Doc"
wd.FileClose
Set wd = Nothing
End sub
kingbear2000 2003-02-24
  • 打赏
  • 举报
 回复
我的邮箱xionghy@china.com.cn 或xionghy@cnnb.net
kingbear2000 2003-02-24
  • 打赏
  • 举报
 回复
发一份给我,马上给分
qqqdong 2003-02-23
  • 打赏
  • 举报
 回复
我有Word的套打
kingbear2000 2003-02-21
  • 打赏
  • 举报
 回复
如何用excel作模板来实现套打设置********回答此问题,一定给分***
zzzzzz7 2003-02-16
  • 打赏
  • 举报
 回复
Microsoft Office\Office\2052\vba*.*
chenyu5188 2003-02-16
  • 打赏
  • 举报
 回复
UP

OFFICE2000中有完整的帮助
13161795500 2003-02-16
  • 打赏
  • 举报
 回复
完全安装OFFICE的EXCEL部分，打开EXCEL，找“VisualBasic编辑器”，打开后点菜单上的“帮助”，内容太多！！！
tanyx 2003-02-14
  • 打赏
  • 举报
 回复
我解决这些问题，都是在MSDN中搜索EXCEL得到的。
Cooly 2003-02-14
  • 打赏
  • 举报
 回复
http://msdn.microsoft.com/

Search "Excel" .....

Checking Results
Cooly 2003-02-14
  • 打赏
  • 举报
 回复
先进来再说。。。
diruser 2003-02-14
  • 打赏
  • 举报
 回复
在Excel中用宏记录，然后打开宏中就有你要的代码了
100个Java项目解析，带源代码和学习文档！
你是否正在寻找带有源代码的Java项目的免费集合？你的搜索到这里结束，我为你提供了近100多个Java项目。 想要成为一个优秀的程序员写项目是绕不开的，毕竟工程学的最终目标都是要创造东西，所以，代码给我敲起来！ ...
2025年 Java 面试八股文（20w字）零基础入门到精通，收藏这篇就够了
基本数据类型，如int,float,double,boolean,char,byte,不具备对象的特征，不能调用方法。装箱：将基本类型转换成包装类对象拆箱：将包装类对象转换成基本类型的值java为什么要引入自动装箱和拆箱的功能？主要是用于...
有问必答记录
面向对象具有以下四大特征：（1）继承：继承是从已有类得到继承信息创建新类的过程（2）封装：通常认为封装是把数据和操作数据的方法绑定起来，对数据的访问只能通过已定义的接口。（3）多态性：多态性是指允许不同...
新英汉翻译词典软件vb代码
有能力的，能干的" case"abnormal" Z = " adj.反常的，变态的" case"aboard" Z = " adv.船(车)上" case"abolish" Z = " v.废除，取消" case"abolition" Z = " n.废除，取消" case"abortion" Z = " n.流产" case...
TowardsDataScience 博客中文翻译 2020（八百八十一）
作为一个自我诊断为黑客马拉松爱好者的人，我经常问自己(也经常被问到)这个问题！它启发我写了这篇文章，其中写道:我想为你和你的团队提供一份实用的建议清单，告诉他们在黑客马拉松后该做些什么。面对现实吧，没有...
多媒体

807

社区成员

8,274

社区内容

发帖
与我相关
我的任务
社区描述
VB 多媒体
社区管理员
  • 多媒体
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章