セルの範囲をコピーしてWordに貼り付け、フォーマットする - Excel VBA

Question

Excelからセルの範囲をコピーしてWordに貼り付け、列にオートフィットを使用して書式を設定します。どうやってやるの？これはListObjectで行うことができますが、 Excelのテーブルとしてフォーマットしたくありません。

Answer 1

ListObjectオブジェクトへの参照をRangeに割り当てることはできません。それらは同じものではありません。

$A$1:$C$2でこれらの値を使用して、新しいシートを作成します。リボンから

A B C 
1 2 3 

ヒット「マクロの記録」、および「テーブルとして書式」を選択します。マクロレコーダーを停止します。このコードは生成されます：

Sub Macro1() 
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$C$2"), , xlYes).Name = _ 
     "Table1" 
    Range("Table1[#All]").Select 
    ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleLight1" 
End Sub 

あなたはシートのListObjectsコレクションにアクセスし、あなたのソースの範囲を指定してAddListObjectする必要があります。

Answer 2

（これは@ mats-mugにコメントとして投稿しますが、まだできません）@ mats-mugの回答と一般的な習慣の補足として、コードにActiveSheetを使用しないことを検討してください。シートをワークシートオブジェクトとして宣言します。

Dim wbSLA as Workbook 
Dim wsDetailSLA as Worksheet 
    Set wbSLA = ThisWorkbook 
    Set wsDetailSLA = wbSLA.Sheets("SLA Details") 

'use @mats-mug code here using the worksheet objects instead of ActiveSheet