제9과 excel 파일 조작

2169 단어
1.excel 파일 및 워크북
excel 파일은 excel 워크북Workbooks 워크북 집합입니다. excel 파일이나 워크북Workbooks("A.xls"), 이름이 A인 excel 워크북을 가리킵니다.
 Sub t1()
      Workbooks("A.xls").Sheets(1).Range("a1") = 100
   End Sub

workbooks(2), 열기 순서대로 두 번째 열기 작업장.
Sub t2()
     Workbooks(2).Sheets(2).Range("a1") = 200
  End Sub

ActiveWorkbook, excel 워크북을 여러 개 열 때 작업 중인 것이 ActiveWorkbook입니다.
Thisworkbook, VBA 프로그램이 있는 워크북, 당신이 몇 개의 워크북을 열든지, 현재 어느 워크북이 활동하든지, Thisworkbook은 코드가 있는 워크북을 가리킨다.
2. 워크북 창
Windows ("A.xls"), A 워크북의 창입니다. 윈도우즈를 사용하면 워크북 창의 상태를 설정할 수 있습니다. 예를 들어 숨길지 여부입니다.
     Sub t3()
        Windows("A.xls").Visible = False
     End Sub
     Sub t4()
        Windows(2).Visible = True
     End Sub

3. A.Xls 파일의 존재 여부 판단
    Sub W1()
     If Len(Dir("d:/A.xls")) = 0 Then   'dir   , '
       MsgBox "A "
     Else
       MsgBox "A "
     End If
   End Sub

4 A.Xls 파일의 열기 여부 판단
    Sub W2()
     Dim X As Integer
      For X = 1 To Windows.Count   ' '
        If Windows(X).Caption = "A.XLS" Then
          MsgBox "A "
          Exit Sub
        End If
      Next
    End Sub
  • excel 파일을 새로 만들고 저장합니다
  •   Sub W3()
         Dim wb As Workbook  ‘ ’
         Set wb = Workbooks.Add   ‘ set ’
           wb.Sheets("sheet1").Range("a1") = "abcd"
         wb.SaveAs "D:/B.xls"
      End Sub
    

    6.excel 파일 열기 및 닫기
    Sub w4()
       Dim wb As Workbook
       Set wb = Workbooks.Open("D:/B.xls")
       MsgBox wb.Sheets("sheet1").Range("a1").Value
       wb.Close False ‘false ’
    End Sub
    

    7.excel 파일 저장 및 백업
       Sub w5()
          Dim wb As Workbook
          Set wb = ThisWorkbook
          wb.Save
          wb.SaveCopyAs "D:/ABC.xls"
       End Sub
    
  • excel 파일 복사 및 삭제
  •    Sub W6()
          FileCopy "D:/ABC.XLS", "E:/ABCd.XLS"
          Kill "D:/ABC.XLS"
       End Sub
    

    좋은 웹페이지 즐겨찾기