VB：ExcelセルをWordにコピーしてExcel形式を保持する

Question

これらのExcelセルは、Wordの固定テーブルにコピーするコンマ（E.G. 9,000,000）でフォーマットされています。私はVBスクリプトを使用します（下記参照）。しかし、値がWordに入ると、コンマは消えます。 9000000から9000000まで。その番号の元の形式はどのように保持できますか？ありがとうございました。

Sub test() 

Dim wdDoc As Word.Document 
Dim wdApp As Word.Application 


Dim tbl As Word.Table 


Dim FileName As String 
Dim iRow As Integer 
Dim iCol As Integer 

Path = ActiveWorkbook.Path 

ChDir Path 
Workbooks.Open FileName:=Path & "\Excel2.xlsx" 

Set TARGET_FILE = Workbooks("Excel2.xlsx") 

TARGET_FILE.Activate 
Sheets("Sheet1").Select 
SRC_A2 = Range("A2").Value 
SRC_B2 = Range("B2").Value 

FileName = "C:\Users\Desktop\Practice\Word.docx" 
Set wdApp = New Word.Application 

wdApp.Visible = True 'add this to see the Word instance and document 
Set wdDoc = wdApp.Documents.Open(FileName) 

Set tbl = wdDoc.Tables(1) 


tbl.Rows(2).Cells(1).Range.Text = SRC_A2 
tbl.Rows(2).Cells(2).Range.Text = SRC_B2 


End Sub 

Answer 1

あなたがTextプロパティを使用している場合、それはExcelで行うように、代わりにValueプロパティの、あなたは、セルの値が見れます：

SRC_A2 = Range("A2").Text 
SRC_B2 = Range("B2").Text 

それはまたに良いでしょうすべての変数の型を宣言します。

Dim SRC_A2 As String 
Dim SRC_B2 As String