[vba] [vba] 파일을 열지않고 수정 및 저장하기
하나를하더라도최선을
2019-07-08 00:11
6,392
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