こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

VB2005で、Excel 2010に罫線を描く。

VB2005で、Excel 2010に罫線を描く。
※ VB2005で技術計算をし、[Excel 2010] に資料を作成しています。
※ [Windows XP]+[Excel 2005] では正常に作動するコードを
   [Windows 7]+[Excel 2010] 上のVB2005に移植すると、罫線の
   描画部分でエラー表示が出ます。
※ [Excel 2010] の Open コードは下記です。
※ ファイルを開くコード
   Me.Hide()
xlApp = CreateObject("Excel.Application")
xlBook = xlApp.workbooks.add
xlSheet = xlBook.sheets("sheet1")
xlBook.application.Visible = True
Me.Show()
MsgBox("Excelファイルは開きましたか", 0, "確認")
Excel転記ToolStripMenuItem.Enabled = True
    教えて下さい。

{質問追記}
 
※各セルへのテキスト記入、セル幅・高さ・フォント変更等は出来ます。

※ 何かの認識コードが不足しているのでしょうか。罫線だけが引けません
      With xlApp.Workbooks(1).Worksheets("Sheet1")
'---------------------------------------------------------------
.xlRange(.Cells(i1, j1), .Cells(i2, j2)).Borders.LineStyle = xlApp.XlLineStyle.xlContinuous
'--------------------------------------------------------------------------
End With
  
※エラー内容1(上コードに対し)
      「公開メンバ 'xlRange' は型 'Worksheet' に見つかりませんでした。」

  ※エラー内容2
Excelのマクロを引用して、コードを書くと、デバックでエラーになります。
Selection.Borders(xlDiagonalDown).LinStyle = xlNone は

     名前 "Selection"は宣言されていません。
     名前 "xlDiagonalDown"は宣言されていません。
     名前 "xlNone"は宣言されていません。

投稿日時 - 2012-09-04 10:56:44

QNo.7679853

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

> .xlRange(.Cells(i1, j1), .Cells(i2, j2)).Borders.LineStyle = xlApp.XlLineStyle.xlContinuous

xlRangeじゃなくてRangeでは?

投稿日時 - 2012-09-04 14:20:10

あなたにオススメの質問