[vba] 파일을 열지않고 수정 및 저장하기 > vb6.0/vba | program1472

vba [vba] 파일을 열지않고 수정 및 저장하기

페이지 정보

작성자 하나를하더라도최선을
댓글 0건 조회 34,056회 작성일 19-07-08 00:11

본문

페이스북 공유
트위터 공유

Sub program1472()
    Dim fPath As Variant
    fPath = Application.GetOpenFilename(FileFilter:="All Files, *.*, " & _
                         "Excel Files, *.xl*;*.xls;*.xlt", _
                         FilterIndex:=2, MultiSelect:=False)

    If VarType(fPath) = vbBoolean Then Exit Sub
    Dim W As Workbook
    Set W = GetObject(fPath)
    W.Sheets(1).[A1:Z100].Value = Sheets("Sheet1").[A1:Z100].Value
    W.IsAddin = True    '// 반드시 추가
    W.Close True
End Sub

이전글[vba] 엑셀 시트에 웹 브라우저 컨트롤 지우고 새로 삽입 19.07.18
다음글[vba] 엑셀 시트를 픽셀처럼 사용하여 폼의 이미지 박스의 이미지를 시트에 그리기 19.07.08

댓글목록

등록된 댓글이 없습니다.