Excel 매크로 - 원본 서식 유지

워크 시트간에 데이터를 복사하려고해도 문제가 없지만 동일한 데이터를 Word 문서에 복사하려고하면 형식이 손실됩니다. 이것을 막을 수있는 방법이 있습니까?Excel 매크로 - 원본 서식 유지

' Copy all data from 1.xls to new.docx 
Sheets("Design").Select 
Range("A1:G50").Copy 
appWD.Selection.Paste

PasteSpecial을 사용할 수 있습니까?

감사합니다.

Select Case Range("C19").Value 
    Case 1 
     Sheets("Info").Select 
     Range("B7").Copy Destination:=Sheets("Design").Range("A" & x) 
     x = x + 2 
End Select

@Brown 따라서이 사본을 셀 C19의 데이터 (시트 : 정보) 셀 B7 (시트 : 디자인)에

' I open my word doc etc. 
Sheets("Design").Select 
Range("A1:E50").Copy 
appWD.Selection.Paste

이 선택 시트 디자인, 복사 모든 및 페이스트 이걸 워드 박사에게. 나는 여기에이 오피스 XP와 함께 작동 내 간단한 테스트 프로그램

Sub test() 
    Dim wrdApp As Word.Application 
    Set wrdApp = New Word.Application 
    Dim wrdDoc As Word.Document 
    wrdApp.Documents.Add 
    Set wrdDoc = wrdApp.ActiveDocument 
    Range("A1:B1").Copy 
    wrdApp.Selection.Paste 
    wrdDoc.SaveAs "D:\tmp\myworddoc.doc" 
End Sub

(I 손에서 오피스 2007이없는)입니다 또한,

출처

2011-03-15 CustomX

이 방법을 사용하면 모든 형식이 그대로 유지됩니다 (Office XP 사용). 숫자 형식과 글꼴 색을 확인했습니다. 작은 테스트 프로그램에서이 동작을 재현 할 수 있습니까? –

내 의견 편집 – CustomX

PasteSpecial의 설명서를 보지 않은 이유는 귀하의 솔루션 일 수 있다고 제안했기 때문입니다 (힌트 : Excel과 관련하여 경험이 있지만). – Romain

오피스 2007을 XP를 사용하고, 내 서식을 잃게됩니다. 셀 A1 : B1에는 서식이 지정된 숫자가 들어 있습니다. 이 하나의 내 컴퓨터에서 잘 작동, 만든 단어 doc 형식의 숫자가있는 테이블을 포함합니다. 그것이 효과가 있는지보기 위해 당신의 손에 그것을 시험해 볼 수 있습니까?

출처

2011-03-15 15:24:58

음, 실제로 작동합니다. 나는 왜 그것이 나를 위해 일하지 않는지 궁금해 :하지만 감사하지만. – CustomX

@ 톰 : 상황과 광산이 다른 것을 찾아 내면 완료됩니다 :-) –

하하 감사합니다 : P – CustomX

Excel 매크로 - 원본 서식 유지

답변

관련 문제