VB与EXCEL

Question

在EXCEL表中，字符型数据默认为左对齐，数字型默认右对齐， 我如何把数据库中的数字型数据导入到excel时，
　　让数字型数据与字符型数据一样左对齐？？？急用~~~~~~~~~
　　还有，如何在程序中设置EXCEL表格内容的格式，如字体和边框的设计！！！！
部分程序如下：
ExcelWS.Cells(rowsexcel + 1, 3) = "HBC ¶©»õµ¥"
    ExcelWS.Cells(rowsexcel + 2, 1) = "¶©µ¥ºÅ £º"
    ExcelWS.Cells(rowsexcel + 2, 2) = Text2.Text
    ExcelWS.Cells(rowsexcel + 3, 1) = "ϵ¥ÈÕÆÚ£º"
    ExcelWS.Cells(rowsexcel + 3, 2) = Format(Now, "yyyy-mm-dd")
    ExcelWS.Cells(rowsexcel + 4, 1) = "½»»õÈÕÆÚ£º"
    ExcelWS.Cells(rowsexcel + 4, 2) = Format(prinrs!DeliveryDate, "yyyy-mm-dd")
    ExcelWS.Cells(rowsexcel + 5, 1) = "ºÏͬºÅ£º"
    ExcelWS.Cells(rowsexcel + 5, 2) = Year(Now) & prinrs!ID
乱码为中文，小弟就不重输了

Answer 1

Dim Report As New Excel.ApplicationReport.Workbooks.Add
Report.Range("A1:G1").Merge  '合并With Report.Range("A1:G1)   ' 格式
         .Borders(xlInsideHorizontal).LineStyle = xlContinuous
         .Borders(xlInsideVertical).LineStyle = xlContinuous
         .Borders(xlEdgeBottom).LineStyle = xlContinuous
         .Borders(xlEdgeLeft).LineStyle = xlContinuous
         .Borders(xlEdgeRight).LineStyle = xlContinuous
         .Borders(xlEdgeTop).LineStyle = xlContinuous
End With

Answer 2

你干吗不看Excel的宏呢，代码还不是一样的吗

Answer 3

With Report.Range("C1：D1" )
         
         .HorizontalAlignment = xlLeft  ’左对齐
         .VerticalAlignment = xlTop  ‘上对齐
         .WrapText = True  '换行
    
    End With

Answer 4

两种方法:
一.模板型:在打开新的Excel文档时采用以现有模板的方式打开,把模板的所有单元格属性设置为文本类型的,采用左对齐方式.
二:程序型:在对Sheet中的Cell赋值时设置活动Cell的格式为文本类型,左对齐方式(可以在Excel中录制所要实现功能 的宏,拿到Vb里改改就行了.).

Answer 5

可以参考Excel中宏代码的写法，但宏比较烦
可用如下语句：xlSheet.Range("A" & mRow).BorderAround 1, xlThin  '画一单元格的表格线
xlSheet.Range("A" & mRow & ":C" & mRow).MergeCells = True '合并单元格对所需的单元格使用即可！

Answer 6

不用了解excel编辑语句的写法，只要知道excel宏的录制就行了。

Answer 7

让数字型数据与字符型数据一样左对齐？？？只要在每个写入的数据前加一个'（即单引号），就可以使excel将该数据当字符数据处理

Answer 8

    Columns(1).HorizontalAlignment = xlLeft    .HorizontalAlignment = xlRight
        .HorizontalAlignment = xlLeft
        .HorizontalAlignment = xlCenter
在excel中录制宏，看宏的代码！