在ACCESS中用VBA更改EXCEL单格元格的格式可用以下代码:
Private Sub test5()                                                        'EXCEL单元格格式设置
Dim excelapplication As Object
Dim str As String
str = Application.CurrentProject.Path & "\book1.xls"
Set excelapplication = GetObject(str)                                      '获取指定的EXCEL文件
With excelapplication.sheets(1)
    .Range(.Cells(1, 1), .Cells(3, 4)).Borders.LineStyle = xlContinuous    '设置单元格的边框
    .Range(.Cells(1, 1), .Cells(3, 4)).Borders.ColorIndex = xlAutomatic    '设置单元格边框的颜色,可用1~56间的数字设置不同的颜色
    .Range(.Cells(1, 1), .Cells(3, 4)).NumberFormat = "0.00%"              '设置单元格的值以百分比的形式显示
    .Range(.Cells(1, 1), .Cells(3, 4)).interior.ColorIndex = 24            '设置单元格的颜色
    .Range(.Cells(1, 1), .Cells(3, 4)).Font.Bold = True                    '字体加粗
End With
End Sub

单元格边框参数
名称                值         描述
xlContinuous         1         实线。
xlDash             -4115       虚线。
xlDashDot            4         点划相间线。
xlDashDotDot         5         划线后跟两个点。
xlDot              -4118       点式线。
xlDouble           -4119       双线。
xlLineStyleNone    -4142       无线条。
xlSlantDashDot       13        倾斜的划线。

单元格字体格式
名称        描述
Bold        加粗
Italic      斜体
Underline   下划线
  • 中查看更多“在ACCESS中用VBA设置EXCEL单元格的格式”相关内容
  • 中查看更多“在ACCESS中用VBA设置EXCEL单元格的格式”相关内容
  • 中查看更多“在ACCESS中用VBA设置EXCEL单元格的格式”相关内容
  • 中查看更多“在ACCESS中用VBA设置EXCEL单元格的格式”相关内容
  • 分享到: 微信 更多
    免费资源 | 评论(0) | 引用(0) | 阅读(17458)

    表情
    emotemotemotemotemot
    emotemotemotemotemot
    emotemotemotemotemot
    emotemotemotemotemot
    emotemotemotemotemot
    打开HTML
    打开UBB
    打开表情
    隐藏
    记住我
    昵称   密码   游客无需密码
    网址   电邮   [注册]