| |
▼麻衣子 さん：
こんにちは。
> 今いろいろ調べていますがどうしてもわからないので
どのようなキーワードで探して
どのような情報を得られたのでしょうか。
掲示板のやり取りでは「いろいろ」と言われましても
麻衣子さんが御自分でどこまで努力されているのかも解りませんよ。
>まずExcelのA1に下線の引き方だけでも教えていただけないでしょうか？
Sub Excelに罫線を引く()
Dim xlsApp As Object
Dim xlsWkb As Object
Const ExcelFile = "C:\住所録.xls"
Set xlsApp = CreateObject("Excel.Application")
Set xlsWkb = xlsApp.Workbooks.Open(ExcelFile)
With xlsWkb.Sheets("Sheet1").Range("A1")
.Borders(9).LineStyle = 1
.Borders(9).Weight = 2
End With
xlsWkb.Save
xlsWkb.Close: Set xlsWkb = Nothing
xlsApp.Quit: Set xlsApp = Nothing
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
