代码之家 › 专栏 › 技术社区 › Stormer

从Access格式化Excel单元格无效

export-to-excel ms-access vba

Stormer · 技术社区 · 2 年前

我试图简单地创建一个Excel表格,其中包含许多格式,可以通过VBA访问。

在这个例子中,我只是尝试选择A1到E1,并将单元格的颜色变成蓝色,每个单元格都有一个左边框,但什么都没有发生,Excel文件打开了,但它只是放在那里,什么都不做。我错过了什么?

Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlWorkbook As Excel.Workbook

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWorkbook = xlApp.Workbooks.Add
Set xlSheet = xlWorkbook.Sheets(1)

With xlSheet.Range("A1:E1").Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = 5
End With

1 回复 | 直到 2 年前

BigBen 2 年前

With xlSheet.Range("A1:E1").Borders(xlEdgeLeft)

这仅适用于 A1 .

With xlSheet.Range("A1,B1,C1,D1,E1").Borders(xlEdgeLeft)

或者使用循环:

Dim cell As Excel.Range
For Each cell in xlSheet.Range("A1:E1")
   With cell.Borders(xlEdgeLeft)
       .LineStyle = xlContinuous
       .Weight = xlThin
       .ColorIndex = 5       
   End With
Next

.ColorIndex 是调色板的索引,而不是绝对颜色。请尝试以下操作:

.Color = vbBlue

推荐文章

Stormer · 从Access格式化Excel单元格无效

2 年前

bd528 · 以可排序日期格式导出到Excel 2016

7 年前

Amber Rebecca Howe · 如何在PL/SQL Developer中从多个表导出查询结果?

7 年前

Rachel · 使用函数将数据帧写入当前目录外的路径?

7 年前

finnetrolle · 如何在Jasperreports中以特定方式将页眉、页脚和表体拆分为页面

7 年前

Hemanthkumar Rajan · 从表或数据表导出到Excel

7 年前

noliverte · 靓汤:提取天气信息:表格-->Excel文件

7 年前

havakok · 将图像插入MATLAB中的excel单元格

7 年前

Hawk007 · 如何将html表单数据导出到Excel

7 年前

Nikhil · 如何在不同excel选项卡中的Jasper报表中创建分组交叉表?

7 年前