vba [vba] 파일을 열지않고 수정 및 저장하기
페이지 정보
본문
|
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
댓글목록
등록된 댓글이 없습니다.