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

하나를하더라도최선을 2019-07-08 00:11:38 39,379 0 0

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

댓글 0개

첫 번째 댓글을 작성해보세요!