No.1ベストアンサー
- 回答日時:
Excel VBA でできることは VB6 からでもほとんどOKなはずです。
[参照設定] で 'Microsoft Excel 9.0 Object Library' をチェックしておきます。
※2000 は 9.0、97 は 8.0 です。
Sub test()
Dim objxlApp As Excel.Application
Dim objBook As Workbook
Dim objSheet As Worksheet
Set objxlApp = CreateObject("Excel.Application") 'Excel アプリケーション
Set objBook = objxlApp.Workbooks.Add 'ブック
Set objSheet = objBook.Sheets(1) 'シート
objxlApp.Visible = True 'Excel を表示
With objSheet.Cells(1, 1)
.Value = "ABC" '文字
.Font.ColorIndex = 3 '文字の色
.Borders(xlEdgeLeft).LineStyle = xlContinuous '罫線
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
End With
objSheet.PrintOut '印刷
objBook.SaveAs "C:\My Documents\Book1.xls" 'ファイルの保存
Set objxlApp = Nothing 'Excel アプリケーションオブジェクトの開放
End Sub
No.2
- 回答日時:
xlContinuous は Excel の組み込み定数で、罫線の種類を意味します。
参照設定がきちんとなされていれば、通常問題ないはずなのですが...
当方の環境では、VB6 のオブジェクトブラウザで XlLineStyle クラスを
見ますと、'Const xlContinuous = 1' と定義されていることが確認できます。
従って、そのように定数を宣言するか、若しくは xlContinuous に替えて
値の 1 を直接記述すれば、エラーは解消されます。
当方では現象の確認ができないため、なぜエラーになるかはわかりません。
どなたかご教示くださいませ。
なお、罫線の値は次の通りです。実際の罫線の引き方については、
Excel でマクロの実行を行うなどして実践してみてください。
実線 = 1
鎖線 = -4115 (&HFFFFEFED)
一点鎖線 = 4
二点鎖線 = 5
点線 = -4118 (&HFFFFEFEA)
2重線 = -4119 (&HFFFFEFE9)
なし = -4142 (&HFFFFEFD2)
斜め一点鎖線 = 13
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(IT・Webサービス) Excelであいうえおがおえういあになる 5 2022/07/19 03:33
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- ドライブ・ストレージ M.2SSDがWindowsからはアクセスできるのに、BIOSで認識されない 3 2022/09/11 16:55
- Visual Basic(VBA) tatsumaru77様 昨日回答して頂いたものです。 すみませんが、昨日の質問で1つ補足があります 1 2022/05/15 15:06
- Excel(エクセル) Excelのウィンドウが少し小さく、ズレて立ち上がります 1 2022/06/27 16:25
- Excel(エクセル) Excel2010 VBAが特定動作で実行出来なくなる 7 2022/12/29 14:26
- Excel(エクセル) エクセル 条件に合う日付に入力された時間数の合計したい 4 2022/06/17 22:18
- その他(Microsoft Office) office2010とoffice365の共存でoffice365を優先で起草させたい 3 2023/01/24 10:47
- プリンタ・スキャナー 【至急】EPSON EP-808AB プリンターUSBメモリーが反応しない 3 2022/06/12 01:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル、ページをまたがった...
-
ワードの文章囲み枠(?)を消...
-
ワードで勝手に点線ラインがでる
-
wordで罫線が引けない・・・
-
パワーポイントの表
-
エクセルの表をワードに貼り付...
-
PowerPointの表の罫線を二重罫...
-
PDFファイルの罫線を消す方法
-
エクセル 罫線の色が変えられ...
-
Excelの表をWordにリンク...
-
エクセルで遥か下まで線が出来る
-
Wordで作った「表の罫線を部分...
-
wordで作った表の罫線が消せな...
-
回覧板
-
Wordのページの上下に罫線みた...
-
パソコンのワードでこの様な割...
-
Wordで左右に分割
-
ワードで文字のところに長方形...
-
エクセル 2010 ピボットテーブ...
-
(Word)点線枠の消し方を教えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル、ページをまたがった...
-
ワードの文章囲み枠(?)を消...
-
wordで罫線が引けない・・・
-
ワードで勝手に点線ラインがでる
-
パワーポイントの表
-
PDFファイルの罫線を消す方法
-
PowerPointの表の罫線を二重罫...
-
ワードの表の罫線が見えるけど...
-
エクセル 罫線の色が変えられ...
-
Excelの表をWordにリンク...
-
回覧板
-
2段組みで左右別々に書き込め...
-
エクセルの表をワードに貼り付...
-
罫線を引いて保存しても消えて...
-
(Word)点線枠の消し方を教えて...
-
WORD- - - - -点線が消えません
-
WORD文書の青い枠線を消したい
-
オプションボタンの背景を透明...
-
Wordで左右に分割
-
エクセル 2010 ピボットテーブ...
おすすめ情報