PC Fórum
  • Kisebb betűméret
  • Eredeti betűméret
  • Nagyobb betűméret

Excel -> Word export makró
50

2013-09-03T02:43+01:00
T700
T700PC Fórum
regisztrált tag
Excel táblázatból adatokat szeretnék átvinni (amelyek nem egész számok) word-be, a CustomDocumentProperties segítégével (A Word dokumentumban mezőkbe írom az adatokat.) az alábbi módon:

obj.CustomDocumentProperties.Add _
Name:="név",
Value:=Worksheets("adatok").Cells(1, 1).Value, _
Type:=msoPropertyTypeString, LinkToContent:=False

Az a gond, ha nem egész a szám, amit átviszek, akkor a tizedes vessző helyett pont jelenik meg a Word-ben.
Próbáltam beállítani, hogy az excel cella, amiben a szám van "szöveg" legyen, de akkor is a vesszőből pont lesz a word-ben. Mi lehet a megoldás ?
Mutasd a teljes hozzászólást!
Excel -> Word export makró
2013-09-03T02:43+01:00
T700
T700PC Fórum
regisztrált tag
Illetve van a replace("KARAKTERSOROZAT","MIT CSERÉLJEN","MIRE") függvény, mellyel:

cells(1,1) = "4,567"
cells(2,1) = replace(cells(1,1),",",".")

eredmény: 4.567

Excelnél be kell állítanod, hogy a cellatartomány szöveg legyen, különben automatikusan számmá formázza.

Wordnél, ha valamilyen objektumba viszed, akkor a replace() függvénnyel át tudod alakítani, de szerintem ha a számot sztringként viszed, akkor nem fogja számmá konvertálni.

Mutasd a teljes hozzászólást!
Oszd meg másokkal is!

Feltétlenül számot akarsz átvinni word-be?

Value, helyett textként vidd.

Worksheets("adatok").cells(1,1)

vagy

Worksheets("adatok").cells(1,1).text

Nem próbáltam, csak nézd meg, hátha. Utána ráállok.
Mutasd a teljes hozzászólást!
Illetve van a replace("KARAKTERSOROZAT","MIT CSERÉLJEN","MIRE") függvény, mellyel:

cells(1,1) = "4,567"
cells(2,1) = replace(cells(1,1),",",".")

eredmény: 4.567

Excelnél be kell állítanod, hogy a cellatartomány szöveg legyen, különben automatikusan számmá formázza.

Wordnél, ha valamilyen objektumba viszed, akkor a replace() függvénnyel át tudod alakítani, de szerintem ha a számot sztringként viszed, akkor nem fogja számmá konvertálni.

Mutasd a teljes hozzászólást!
Működik! Ha "value" helyett "text"-re állítom, akkor helyesen viszi át és nem kell bűvészkedni. Jár a pont!
Mutasd a teljes hozzászólást!
Oszd meg másokkal is!