• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




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

하나를하더라도최선을
2019.07.08 00:11 1,576 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

등록된 댓글이 없습니다.