Excel VBA를 다른 Excel 통합 문서로 내보내기

-4

VBA에서 많은 경험을 쌓지 않아 도움이 될 수 있습니다.Excel VBA를 다른 Excel 통합 문서로 내보내기

엑셀 워크 시트를 만들었습니다.

이제 워크 시트의 데이터를 다른 Excel 통합 문서로 보내는 매크로를 만들고 싶습니다.

if 문을 사용하려면 프로젝트 이름 = "x"이면 매크로가 통합 문서 "x"로 데이터를 보내고 가져온 워크 시트의 순위를 날짜별로 지정해야합니다.

나는 웹에서 이걸 발견하고 새로운 파일로 시트를 복사하는 데 조금

Private Sub CommandButton21_Click() 

    Dim Data As Range 

    Dim myData As Workbook 

    Worksheets("blad1").Select 

    Set Data = Range("c2") 

    Set myData = Workbooks.Open("C:\test\locatie.xlsx") 
    Worksheets("blad1").Select 
    Worksheets("blad1").Range("a1").Select 

    RowCount = Worksheets("blad1").Range("A1").CurrentRegion.Rows.Count 
    With Worksheets("blad1").Range("A1") 

.Offset(RowCount, 0) = Data 

    End With 
End Sub

출처

2015-01-12 user2941917

예, 가능합니다. – Jeeped

Jeeped가 나를 도와 주실 수 있습니까? – user2941917

[Contextures - Excel VBA 시작하기] (http://www.contextures.com/excelvbagettingstarted.html) 및 [MSDN - Excel VBA 시작하기] (http : // msdn. microsoft.com/en-us/library/office/ee814737(v=office.14).aspx) 및 [Mr Excel - articles] (http://www.mrexcel.com/articles.shtml) 및 [chandoo.org ] (http://chandoo.org/wp/excel-vba/) –

간단한 예를 조정했다 :

IF projectname = "x" THEN 'you have to define projectname 

OldName = ThisWorkbook.Name 'name of your open file 
Workbook.Add 'Open new file 
newName = ActiveWorkbook.Name 'name of the new file 
Windows(OldName).Activate 'original file select 
Sheets("Sheetname").Activate 'define Sheetname of your original file 
ActiveSheet.Select 
ActiveSheet.Copy after:=Workbooks(newName).Sheets(1) 
Windows(newName).Activate 
ActiveWorkbook.SaveAs Filename:=filename1, FileFormat:=51, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False 'define filename1 
Application.DisplayAlerts = True 
End If

출처

2015-01-12 12:49:59

Excel VBA를 다른 Excel 통합 문서로 내보내기

답변

관련 문제