당신은 주제를 찾고 있습니까 “엑셀 워드 연동 vba – 엑사남의 VBA 기본강의 1강“? 다음 카테고리의 웹사이트 https://you.charoenmotorcycles.com 에서 귀하의 모든 질문에 답변해 드립니다: https://you.charoenmotorcycles.com/blog/. 바로 아래에서 답을 찾을 수 있습니다. 작성자 엑사남ExcelLoveMan- 이(가) 작성한 기사에는 조회수 180,584회 및 좋아요 2,433개 개의 좋아요가 있습니다.
엑셀 워드 연동 vba 주제에 대한 동영상 보기
여기에서 이 주제에 대한 비디오를 시청하십시오. 주의 깊게 살펴보고 읽고 있는 내용에 대한 피드백을 제공하세요!
d여기에서 엑사남의 VBA 기본강의 1강 – 엑셀 워드 연동 vba 주제에 대한 세부정보를 참조하세요
엑사남에게 배우는 엑셀VBA 기본 무료강의 입니다
엑셀 VBA 공부 쉽게 하려면
무조건 보시는게 좋을거에요 ^^
모두에게 도움 되기를 바랍니다.
엑셀 워드 연동 vba 주제에 대한 자세한 내용은 여기를 참조하세요.
엑셀VBA 워드 연동, 출입증 만들기 – 블로그 – 네이버
임시 출입증 word 파일 열어서, 엑셀 데이터를 찾기 및 바꾸기 기능을 이용해서 입력한다. 3. 엑셀 데이터, 행을 차례대로 이동하면서, 워드에 값을 넣어 …
Source: blog.naver.com
Date Published: 6/30/2022
View: 667
엑셀에서 워드로 (Excel to Word) VBA – follow(7) – 구르는돼지
웹 상에서 출석체크도 할 수 있게 되었고, 이에 따라 특정 칸에 개인의 출석현황과 조원 들의 출석 명수가 기록된다. 또한 기도제목을 작성하면 엑셀 파일 …
Source: rollingpig.tistory.com
Date Published: 8/15/2022
View: 3109
엑셀연동 워드문서 일괄생성 (메일머지 기능) – konahn
A PowerPoint VBA Explorer. … 엑셀연동 워드문서 일괄생성 (메일머지 기능) … 데이터는 아래와 같은 엑셀문서 양식에 들어 있습니다.
Source: konahn.tistory.com
Date Published: 12/9/2021
View: 9789
[vba]워드문서 검색하여 엑셀파일에 복사하기 – rand(life)
[vba]워드문서 검색하여 엑셀파일에 복사하기 … 엑셀에서 매크로를 실행하여 … Microsoft Word Object Library에 체크를 해야 작동한다.Source: flogsta.tistory.com
Date Published: 3/25/2021
View: 5943
[엑셀]동일한 문구의 워드에 엑셀데이터로 값변경하여 출력(인쇄 …
Excel and VBA. [엑셀]동일한 문구의 워드에 엑셀데이터로 값변경하여 출력(인쇄)하기.
Source: dodo-it.tistory.com
Date Published: 9/21/2021
View: 6010
워크시트의 셀범위 값을 워드파일에 기록하기 – 다음블로그
아래 그림과 같이 워크시트에 있는 셀범위 값들을 워드파일에 기록하는 작업을 엑셀VBA 로 하려고합니다. 코드) Dim objWord As Object, …
Source: blog.daum.net
Date Published: 3/29/2022
View: 6567
[엑셀]VBA입문(0)-VBA란? – 이지블로그
연동이 쉽다. 앞서 말해드렸듯이 vba는 엑셀뿐만 아니라 다른 office에서도 사용할 수 있는데요 이를 이용해서 엑셀에 있는 데이터를 다른 파워포인트 …
Source: ezblog.tistory.com
Date Published: 3/9/2021
View: 6332
주제와 관련된 이미지 엑셀 워드 연동 vba
주제와 관련된 더 많은 사진을 참조하십시오 엑사남의 VBA 기본강의 1강. 댓글에서 더 많은 관련 이미지를 보거나 필요한 경우 더 많은 관련 기사를 볼 수 있습니다.
주제에 대한 기사 평가 엑셀 워드 연동 vba
- Author: 엑사남ExcelLoveMan-
- Views: 조회수 180,584회
- Likes: 좋아요 2,433개
- Date Published: 2019. 10. 12.
- Video Url link: https://www.youtube.com/watch?v=OjDSqGqQ_uA
엑셀VBA 워드 연동, 출입증 만들기
– 작동 과정
1. 엑셀에 값 입력하고 임시 출입증 발급 버튼을 누른다.
2. 임시 출입증 word 파일 열어서, 엑셀 데이터를 찾기 및 바꾸기 기능을 이용해서 입력한다.
3. 엑셀 데이터, 행을 차례대로 이동하면서, 워드에 값을 넣어 준다. PDF 전환을 한다.
4. 행을 차례대로 이동하다가 값이 없다면 중단한다.
5. 워드를 종료한다.
엑셀에서 워드로 (Excel to Word) VBA
반응형
이번 게시물은 번외 게시물이라 할 수 있다.
사실 프로젝트 follow는 마무리 되었다. 웹 상에서 출석체크도 할 수 있게 되었고, 이에 따라 특정 칸에 개인의 출석현황과 조원 들의 출석 명수가 기록된다. 또한 기도제목을 작성하면 엑셀 파일에 해당 인원의 기도제목 또한 문자열 값으로 들어간다. 이것만으로도 하나의 엑셀파일에 개인의 출석률과 기도제목을 다 담을 수 있는 결과가 나온다. 끝이다.
하지만 마지막으로 남은 것이 있다. 바로 엑셀로 저장된 기도제목(pray)을 사람이 보기 편한 형식으로 옮기는 것이다. 해당 프로젝트의 목적은 사람이 하는 일을 줄이는 것이었다. 매번 출석을 일일히 종이에서 엑셀로 옮겨적는 것을 없애고 싶었고, 매달 적어낸 기도제목을 일일히 타이핑하여 문서화 시키는 것을 없애고 싶었다.
이러한 목적에 맞추어 엑셀파일에서 특정 셀들의 값들을 빼와 word파일로 원하는 형태의 포맷으로 바꾸는 VBA코드를 작성하였다.
파일 자체를 올려 누구든지 코드를 따갈수 있도록 하고 싶은데, 파일에 개인정보가 너무 많아 그러지 못하는 점이 아쉽다… 정말 많은 구글링과 시도 끝에 나온 결과물 이기 때문에 이 글을 찾은 사람도 그와 같은 과정을 하고 있다고 생각한다. 해당 코드를 사용하기 위해서는 속성에서 몇가지 체크박스들을 체크하는 등의 선행작업이 있었다. 아마 엑셀에서 word 언어를 사용하기 위한 일정의 라이브러리 추가같은 개념이었던 것 같다. 아쉽게도 너무나 오래되어 기억나지 않는다.. 구글링하면 나오겠지만 귀찮달까…ㅎㅎ 이 글을 찾은 시점에서 이미 그런 정보들은 다른 곳에서 얻었을 것이라 생각한다. 그저 코드를 올리고 해석하는 것으로 해당 글은 끝내도록 하겠다. 참고용도로 사용하길..
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 Sub ToWord() Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Dim k As Long “/ / 시트의 행의 크기를 저장할 변수 Dim name As String “/ / 이름을 저장할 변수 Dim sex As String “/ / 성별 Dim grade As String “/ / 학년 Dim pray As String “/ / 기도제목 내용(없으면 null) Dim job As String “/ / 맡고있는 역활(없으면 null) k = ThisWorkbook.Sheets( “attendance” ).Range( “B1” , ThisWorkbook.Sheets( “attendance” ).Range( “B1” ). End (xlDown)).Rows.Count “/ / k값에 행의 크기(길이)를 저장 Set wrdApp = CreateObject( “Word.Application” ) wrdApp.Visible = True Set wrdDoc = wrdApp.Documents.Open(ThisWorkbook.Path & “\기도편지.docx” ) With wrdDoc “/ / 워드파일에 쓰기 시작 For i = 2 To k If IsEmpty(Worksheets( “attendance” ).Range( “F” & i)) = False Then name = “” sex = “” grade = “” pray = “” job = “” If IsEmpty(Worksheets( “attendance” ).Range( “A” & i)) = False Then job = job & Worksheets( “attendance” ).Range( “A” & i) End If name = name & Worksheets( “attendance” ).Range( “E” & i).Value sex = ” ” & sex & Worksheets( “attendance” ).Range( “C” & i).Value grade = grade & Worksheets( “attendance” ).Range( “D” & i).Value pray = pray & Worksheets( “attendance” ).Range( “F” & i).Value .Content.InsertAfter job & sex & grade & ” ” & name .Content.Paragraphs.Last.Range.Font.Bold = True “/ / 원하는 형태의 포맷으로 맞춤 If (StrComp( “리더” , job, vbTextCompare) = 0 ) = True Then .Content.Paragraphs.Last.Range.Font.Underline = wdUnderlineSingle “/ / 리더면 밑줄, 아니면 밑줄 안함 Else .Content.Paragraphs.Last.Range.Font.Underline = wdUnderlineNone End If .Content.InsertParagraphAfter .Content.InsertAfter “%%% ” & pray “/ / 엔터를 넣고싶지 않았는데 방법을 찾다가 대안으로 생각해낸 방법. %%%를 넣어 놓고 나중에 엔터 + %%%를 지우는 방법을 택함. .Content.Paragraphs.Last.Range.Font.Bold = False .Content.Paragraphs.Last.Range.Font.Underline = wdUnderlineNone .Content.InsertParagraphAfter End If Next i “/ / For문 끝 .Content.Find.Execute FindText: = “^p%%%” , ReplaceWith: = “” , Replace: = wdReplaceAll “/ / ^p는 엔터임 .SaveAs (ThisWorkbook.Path & “\기도편지.docx” ) “/ / 같은 디렉토리 내 기도편지.docx로 저장한다. .Close ‘ close the document End With wrdApp.Quit Set wrdDoc = Nothing Set wrdApp = Nothing End Sub Colored by Color Scripter cs
해당 코드를 이해하려면 엑셀파일의 형태를 알아야 할 것이다. 엑셀파일의 형태는 다음과 같다.
위의 VBA코드의 목적은 다음과 같다.
구분 : 리더, 성별 : 남, 학년 : 5, 이름 : 구르는돼지, 기도제목 : 1. 잘되게 해주세요.
구분 : (null), 성별 : 남, 학년 : 4, 이름 : 홍길동, 기도제목 : 1. 예시입니다.
라는 열이 있다면 해당 열을 word 파일에 다음과 같이 입력하는 것이다.
리더 남5 권민기 1. 잘되게 해주세요.
남4 홍길동 1. 예시입니다.
그렇다면 코드에 대한 간략한 설명을 통해 어떻게 이런 과정이 이뤄지는지 알아보자.
대략적으로 주석을 달아두었다. 참고바란다.
If IsEmpty(Worksheets(“attendance”).Range(“A” & i)) = False Then
job = job & Worksheets(“attendance”).Range(“A” & i)
End If
name = name & Worksheets(“attendance”).Range(“E” & i).Value
sex = ” ” & sex & Worksheets(“attendance”).Range(“C” & i).Value
grade = grade & Worksheets(“attendance”).Range(“D” & i).Value
pray = pray & Worksheets(“attendance”).Range(“F” & i).Value
해당 코드를 통해 i번째 데이터에 대해 각각의 값을 변수에 넣는다. A열은 null값을 가질 수도 있어서(비어있을 수 있다.) IsEmpty메소드를 사용하였다. 그 외에 다른 변수들에도 각각 위치에 맞게 할당해줄 수 있다.
.Content.InsertAfter job & sex & grade & ” ” & name
.Content.InsertAfter 함수는 뒤에 써진 String 값을 Word에 작성한다. 문자열의 합은 &를 통해 합칠 수 있다. 많은 언어에서의 +와 비슷한 역활을 한다.
.Content.Paragraphs.Last.Range.무언가
가장 마지막에 적힌 글자에 대한 설정을 할 때 사용한다.
.Content.Find.Execute FindText:=”^p%%%”, ReplaceWith:=””, Replace:=wdReplaceAll
찾고 바꾸기 이다. 하나만 바꿀때는 뭘 쓰는지는 구글링을 하자.
블로그에 쓰다보니 replace같은거 안쓰고 .Content.InsertParagraphAfter 이걸 한줄 지웠으면 되는 일이라는 것을 깨달았다… 하지만 참고하라고 그냥 남겨두도록 하겠다. (세상에 난 바보인가…)
나같은 경우 기도제목.docx 파일을 아무것도 작성하지 않은 빈 파일 상태로 저장해 두고 해당 매크로를 작동시켰다.
질문이 있다면 댓글로 하길 바란다!!
반응형
엑셀연동 워드문서 일괄생성 (메일머지 기능)
관련:
지식인1, 지식인2, 지식인3
아래내용은 위 링크 1번에서 질문자님의 질문에 대한 지식인 ‘큰형’님의 소스를 기반으로 수정한 내용입니다.
데이터는 아래와 같은 엑셀문서 양식에 들어 있습니다.
2행에 있는 여러가지 “{항목}” 문자열을 찾아서
워드문서 생성이 O 라면
각 행의 데이터로 바꿔서 아래 워드 문서를 만들어서
지정된 파일명으로 저장하는 일괄처리 작업입니다.
작업을 위해서는 기준이 될 워드문서 내에 {항목}과 같은 표시가 만들어져 있어야 합니다.
{항목}은 1개가 아니라 여러군데 있어도 됩니다.
예전 아래한글 프로그램에 있던 메일머지 기능과 유사합니다.
엑셀 데이터를 기반으로 여러장의 워드 문서를 만들 때 유용하겠습니다.
코드는 아래를 참고하세요.
더보기 Option Explicit Sub 직사각형1_Click() ‘Dim w As Word.Application, D As Word.Document Dim w As Object, D As Object Dim n As Integer, m As Integer Dim T As Variant Dim docFile As String Dim lastRow As Long Dim SPR As String Dim myRange As Object ‘Word.Range SPR = Application.PathSeparator ‘// 윈도우의 경우 ‘\’문자 docFile = ThisWorkbook.Path & SPR & “표준계약서” ‘Application.ScreenUpdating = False lastRow = Cells(Rows.Count, 3).End(xlUp).Row If lastRow < 3 Then Exit Sub T = Range("B2:O" & lastRow).Value '//*********** B열부터 O열까지 ' 워드에서 표준계약서.docx문서 복사본 오픈 Set w = CreateObject("Word.Application") w.Visible = True For n = 2 To UBound(T) If T(n, UBound(T, 2)) = "O" Then '저장여부가 "O"이면 Set D = w.Documents.Open(Filename:=docFile & ".docx", ReadOnly:=True, Visible:=True) Set myRange = D.Content For m = 1 To (UBound(T, 2) - 2) '// ************* B:O열까지에서 N열,O열 2개열은 제외 With myRange.Find .ClearFormatting .Replacement.ClearFormatting .Text = T(1, m): .Replacement.Text = T(n, m) .Execute Replace:=2 '// 2: wdReplaceAll 'Debug.Print T(1, m); T(n, m) End With Next m '문서 저장 및 종료 'D.SaveAs2 Filename:=docFile & "_" & T(n, 2) & ".docx" ' // ***** 표준계약서_홍길동.docx D.SaveAs2 Filename:=ThisWorkbook.Path & SPR & T(n, UBound(T, 2) - 1) & ".docx" D.Close True '저장 End If Next n Set D = Nothing: w.Quit False: Set w = Nothing '초기화 End Sub 입력값2.xlsm 0.02MB 표준계약서.docx 0.02MB
[vba]워드문서 검색하여 엑셀파일에 복사하기
wordfindtoexcel.xlsm 0.02MB
엑셀에서 매크로를 실행하여
특정 폴더안의 모든 워드 문서 중에서
본문에 특정한 단어가 있는지 검사한 후
해당 단어가 있는 문장과
문장의 첫단어가 있는 라인 수
해당 파일의 이름을 출력하는 매크로이다
VB편집기에서
도구 – 참조 클릭하고
Microsoft Word Object Library에 체크를 해야 작동한다.
Option Explicit Sub macro() Dim WApp As Object, WDoc As Object, WDR As Object Dim ExR As Range, sPath As String Dim str2Find As String, myData As String, sFname As String, myfile As String Dim myline As Long Set ExR = Range(“A1”) ‘찾는 단어가 있는 셀 str2Find = ExR.Value With Application.FileDialog(msoFileDialogFolderPicker) .Title = “폴더를 고르시오” .Show If .SelectedItems.Count = 0 Then MsgBox “Canceled” Exit Sub Else sPath = .SelectedItems(1) & “\” End If End With Set WApp = CreateObject(“Word.Application”) sFname = Dir(sPath & “*.doc?”) If Len(sFname) > 0 Then Do Set WDoc = WApp.Documents.Open(sPath & sFname) WApp.ActiveDocument.Select With WApp.Selection.Find .Text = str2Find .Forward = True .Execute If .Found = True Then .Parent.Expand Unit:=wdSentence myData = WApp.Selection.Text myline = WApp.Selection.Range.Information(wdFirstCharacterLineNumber) ExR.Offset(, 1) = sFname ExR.Offset(, 2) = myline ExR.Offset(, 3) = myData WDoc.Close WApp.Quit MsgBox “완료” Exit Sub End If End With WDoc.Close sFname = Dir Loop Until Len(sFname) = 0 End If MsgBox “찾는 단어가 있는 파일이 없습니다” End Sub
해당단어가 속해 있는 문장을 선택하는 구문인
.Parent.Expand Unit:=wdSentence 이 부분에서 자꾸 에러가 나서 고생했는데,
Microsoft Word Object Library를 참조하니까 해결되었다.
[엑셀]동일한 문구의 워드에 엑셀데이터로 값변경하여 출력(인쇄)하기
1. 동일한 문구의 워드에 엑셀데이터로 값변경하여 출력(인쇄)하기의 사용용도
: 편지 뿐 아니라 특정 위치에 값만 변경해서 인쇄하고자 하는 일들이 간혹 생긴다.
이때 300장을 인쇄한다면 300번을 일일이 워드에서 해당위치의 문구를 수정해야만 할 것인가?
그렇다면 아마도 몇시간씩 걸릴것 같은 생각이 든다.
이럴 경우 엑셀과 워드를 이용하면 간단하게 처리할 수 있다.
2. 사용방법
1) 일단 변경될만한 값들의 리스트를 엑셀로 깔끔하게 정리한다.
: 여기서는 주소록에 이름과 주소를 변경하는 예제를 보여주도록 하겠음.
첨부파일(==> 주소록.xlsx 다운로드)을 다운로드하면 아래와 같이 정리되어있다.
2) 그 다음은 동일한 문구가 반복되는 편지를 MS WORD로 작성해 보겠습니다.
– 위 엑셀에서 이름과 주소만 가져와서 일괄변경하고자 함.
– Word 문구 ( 아래에 누구누구님과 주소 : 문구 뒤에 나오는 주소를 엑셀의 주소로 대체하고자 함)
김씨님, 안녕하세요. 아래 주소로 발송해 드리도록 하겠습니다. 주소 : 서울시 서대문구 XXX 동 XXX 아파트
3) 그 다음은 Word상에서 위 엑셀파일을 선택해준다.
: 편지메뉴 > 받는사람선택 > 기존목록사용 > 주소록 선택 > Sheet1에 작성했으니 Sheet1선택
4) 그런다음 편집이 필요하거나 연결이 잘 됐는지 확인하고자 하면 편지 메뉴의 “받는사람 목록편집”을 클릭하면
아래와 같이 연결된 엑셀의 데이타들이 보인다.
5) 이제 본격적으로 반복되는 위치에 해당 필드(이름,주소)를 배치시키자.
: 아래와 같이 변경시키고자 하는 위치에 커서를 두고 “병합필드삽입”에서 원하는 항목을 선택한다.
6) 필드삽입이 완료되면 결과미리보기 버튼을 클릭하여 잘 보이는지 확인해본다.
7) 마지막으로 한꺼번에 돌려서 인쇄하던지, 아래와 같이 페이지를 일괄로 생성하여 확인해 볼 수도 있다.
: 완료 및 병합 > 개별문서편집 을 클릭하면 새로운 Word문서에서 문구가 변경되어있는 page들을 볼 수 있다.
어때요? 도움이 많이 되셨나요? ~~~~~~~
링크맨의 블로그
아래 그림과 같이 워크시트에 있는 셀범위 값들을 워드파일에 기록하는 작업을 엑셀VBA 로 하려고합니다.
코드)
Dim objWord As Object, objDoc As Object
Dim strString As String
Private Sub CB실행1_Click()
‘1. 워드를 Object objWord 개체변수에 만들고, objDoc 개체변수에 할당
Set objWord = CreateObject(“Word.Application”)
objWord.Visible = True
‘ Set objDoc = objWord.documents.Add
objWord.documents.Add
‘2. strString 에 워드에 넣을값 저장
strString = Cells(11, 12) & vbNewLine & _
Cells(11, 13) & vbNewLine & _
Cells(11, 14) & vbNewLine & _
Cells(12, 13) & vbNewLine & _
Cells(12, 14)
‘3. 워드에 strString 넣기
objWord.Activate
objWord.Selection.typetext Text:=strString
‘4. 개체변수 클리어
Set objDoc = Nothing
Set objWord = Nothing
End Sub
설명)
0. Object 개체변수 선언
objWord 와 objDoc 는 Object 개체변수로 워크시트 모듈에 선언을 해도 되고, 프로시저에 선언을 해도 됩니다.
Dim objWord As Object, objDoc As Object
Dim strString As String
Private Sub CB실행1_Click()
‘1. 워드를 Object objWord 개체변수에 만들고, objDoc 개체변수에 할당
objWord 개체변수에는 Word 응용프로그램 개체를 할당합니다.
Set objWord = CreateObject(“Word.Application”)
그리고, 이 objWord 개체변수는 화면에 보이게 하려고 합니다.
objWord.Visible = True
Word 응용프로그램이 새 문서를 엽니다. 문서1.docx 파일이 열립니다.
엑셀VBA 에서는 새 문서를 열때 Workbooks.Open 메서드를 사용하지만, 워드에서는 Documents.Add 메서드를 사용합니다.
새 문서를 여는데 엑셀에서는 Open 을, 워드에서는 Add 로 서로 다르게 사용하고 있습니다.
마이크로소프트웨어에서 같은 사람이 엑셀VBA 와 워드VBA를 만든 것이 아니라, 서로 의사소통을 하지 않은 다른 사람들이 각각 엑셀VBA 와 워드VBA 를 만들었나봅니다.
워드VBA 에서 Documents.Add 메서드는 Document 를 반환하는데, 반환받는 개체변수가 있어도 되고, 없어도 됩니다.
‘ Set objDoc = objWord.documents.Add
objWord.documents.Add
‘2. strString 에 워드에 넣을값 저장
strString = Cells(11, 12) & vbNewLine & _
Cells(11, 13) & vbNewLine & _
Cells(11, 14) & vbNewLine & _
Cells(12, 13) & vbNewLine & _
Cells(12, 14)
‘3. 워드에 strString 넣기
좀 전에 Visble = True 로 objWord 를 보이게만 했지, 화면에 나오게는 하지 않았습니다.
아래 코드로 화면에 나오게 합니다. 이 코드를 넣지 않으면, 워드 새문서는 작업표시줄에만 있게 되어 Visible 만 되고 Activate 가 되어있지 않은 상태가 됩니다.
objWord.Activate
워드의 Selection.TypeText 메서드로 글자를 기록합니다.
objWord.Selection.typetext Text:=strString
‘4. 개체변수 클리어
Set objDoc = Nothing
Set objWord = Nothing
End Sub
주의)
위 코드에서 아래와 같이 objWord 대신에 objDoc 로 바꾸면 동작이 안됩니다.
Set objDoc = objWord.docments.Add 로 objDoc 는 워드 새 문서의 개체일뿐이지, 워드 응용프로그램 개체가 아니기 때문입니다.
objDoc.Activate
objDoc.Selection.typetext Text:=strString
다른 방법)
아래 코드와 같이 objWord 로 워드 새 문서를 열고, 붙혀넣기 Ctrl + V 를 하면 동작이 될 것 같은데, 동작이 안됩니다.
왜 안되는지 모르겠습니다. 메모장을 열때는 아래와 같은 코드로 동작이 되기는 합니다.
아마, 메모장은 빠르게 열리고, 워드는 늦게 열리기때문에 워드에서는 안되는 것 같습니다.
Private Sub CB실행3_Click()
Dim rng범위 As Range
‘2. strString 에 워드에 넣을값 저장
Set rng범위 = Range(“L11:N12”)
rng범위.Copy
‘1. 워드를 Object objWord 개체변수에 만들고, objDoc 개체변수에 할당
Set objWord = CreateObject(“Word.Application”)
objWord.Visible = True
objWord.documents.Add
‘SendKeys
objWord.Activate
‘Application.Wait Now + TimeValue(“0:0:3”)
‘SendKeys “^V”, Wait:=True
SendKeys “^V”
End Sub
[엑셀]VBA입문(0)-VBA란?
자격증을 공부하거나 회사 생활 혹은 다른 여러 가지 이유로 엑셀을 배우고 흥미를 느껴서 vba까지 배우려는
사람이 많을 것입니다.
저도 그런 사람들 중 하나고 vba를 공부하기 위해 여러 가지 자료들을 조사했지만 강의는 몇 개 없고 있는 것들도 대부분이 몇 년 전 글들이어서 vba를 독학하고 지식을 나누기 위해 이렇게 글을 씁니다.
먼저 vba란 무엇이냐?
vba란 Visual Basic for Application의 약자로 Microsoft Office에 내장되어 있는 프로그래밍 언어로
대부분 엑셀에서 사용하기 때문에 엑셀에서만 되는 줄 아는 사람이 많지만 사실 액세스, 워드, 파워포인트 등의 응용프로그램에서 사용이 가능합니다.
굳이 vba를 사용하지 않아도 대부분의 일처리를 할 수 있는데
왜 vba를 사용하느냐?
1. 자동화가 된다.
아무리 단순한 ctrl+c, ctrl+v 작업이라도 그것만 계속한다면 굉장히 피로해지고 오래 걸리죠
하지만 vba를 사용한다면 1시간 걸릴 작업을 10분으로 단축할 수 있습니다.
2. 수정이 쉽다.
말 그대로입니다. 작업을 하고 있을 때 수정사항이 생기면 일일이 바꿀 필요 없이 코딩하던 것에서 한두 개 정도만 만져줘도 문서 전체를 수정할 수 있습니다.
3. 연동이 쉽다.
앞서 말해드렸듯이 vba는 엑셀뿐만 아니라 다른 office에서도 사용할 수 있는데요 이를 이용해서 엑셀에 있는 데이터를 다른 파워포인트 같은 office에 연동할 수 있는 것입니다.
Basic 언어를 사용하기 때문에 다른 언어들보다 배우기도 쉽고 바로바로 활용할 수 있는 vba 저와 함께 배워봅시다.
배우는 순서는
1.vba실행법
2.변수
3.반복문
4.조건문
5.끝열,행 찾기
6.복사붙여넣기
7.지우기
순으로 할것입니다
그럼 다음에 vba실행법을 알아보기로하고 그럼 이만
다음글
VBA 독학 해보자-1(vba 기초)
반응형
키워드에 대한 정보 엑셀 워드 연동 vba
다음은 Bing에서 엑셀 워드 연동 vba 주제에 대한 검색 결과입니다. 필요한 경우 더 읽을 수 있습니다.
이 기사는 인터넷의 다양한 출처에서 편집되었습니다. 이 기사가 유용했기를 바랍니다. 이 기사가 유용하다고 생각되면 공유하십시오. 매우 감사합니다!
사람들이 주제에 대해 자주 검색하는 키워드 엑사남의 VBA 기본강의 1강
- 엑셀VBA
- VBA
- 매크로
- 엑셀기초
- VBA무료
- 엑셀무료
엑사남의 #VBA #기본강의 #1강
YouTube에서 엑셀 워드 연동 vba 주제의 다른 동영상 보기
주제에 대한 기사를 시청해 주셔서 감사합니다 엑사남의 VBA 기본강의 1강 | 엑셀 워드 연동 vba, 이 기사가 유용하다고 생각되면 공유하십시오, 매우 감사합니다.
