excelden worde sayı biçimi sorun

[magicwords33]

merhaba, excelden worde tabloları vba kod ile gönderiyorum.

Sub taablo()
Dim wrd As word.Application
Dim dok As word.Document
Dim tablo1 As word.Table

Set wrd = New word.Application
wrd.Visible = True
Set dok = wrd.Documents.Open("E:\ÇALIŞMAAA\rapor.docm")


dok.Tables(1).Cell(2, 2).Select
wrd.Selection.TypeText Text:=Range("B" & 2)


şeklinde. burada sayıları excelde göründüğü gibi almıyor, 1200,000000999999 şeklinde alıyor. ben excelde göründüğü şekilde 1.200,00 şeklinde görünmsini istiyorum. bunu nasıl yapbilirim?

 

[cems]

sayıyı Excel'de göründüğü gibi metin olarak formatlamanız gerekli olabilir. Range("B" & 2).Value yerine Range("B" & 2).Text veya Format fonksiyonunu kullanarak sayıyı istenen formatta alarak deneyin

Kodlarınızın tamamı olmasa da olasılıkla şu şekilde çalışabilir

Sub taablo()
    Dim wrd As Word.Application
    Dim dok As Word.Document
    Dim tablo1 As Word.Table

    Set wrd = New Word.Application
    wrd.Visible = True
    Set dok = wrd.Documents.Open("E:\ÇALIŞMAAA\rapor.docm")

    ' Excel'deki sayıyı formatlı şekilde al
    dok.Tables(1).Cell(2, 2).Select
    wrd.Selection.TypeText Text:=Format(Range("B" & 2).Value, "#,##0.00")
End Sub

 

[pitchoute]

Excel'de göründüğü gibi alması için format koruması yapılarak alınabilir. Dener misiniz;

Sub taablo()
    Dim wrd As word.Application
    Dim dok As word.Document
    Dim tablo1 As word.Table
    Dim sayiDegeri As Variant
    
    Set wrd = New word.Application
    wrd.Visible = True
    Set dok = wrd.Documents.Open("E:\ÇALIŞMAAA\rapor.docm")
    
    sayiDegeri = Range("B2").Value
    
    Dim goruntulenentext As String
    goruntulenentext = Format(sayiDegeri, Range("B2").NumberFormat)
    
    dok.Tables(1).Cell(2, 2).Range.Text = goruntulenentext
End Sub