เพื่อมุ่งให้เกิดคุณภาพจากการอบรมสูงสุด Excel Expert Training ให้การอบรม Excel กลุ่มเล็กๆ ไม่เกิน 6 คนทุกคนสามารถเรียนรู้ Excel อย่างใกล้ชิด จะมาคนเดียวหรือมาเป็นกลุ่มแล้วนัดวันอบรมแบบส่วนตัวก็ได้ ผู้เข้าอบรมทุกคนสามารถติดตามเนื้อหาที่อบรมได้อย่างชัดเจนจากจอภาพด้านหน้าของตัวเอง
Results 1 to 2 of 2

Thread: vb run time error 438

  1. #1
    pecpys
    Guest

    vb run time error 438 ตอนใช้ Page Setup

    สวัสดีครับ
    ผมใช้ vb เขียน code ดังนี้ครับ

    Private Sub Command5_Click()
    Dim ApExcel As Object 'To open Excel
    Set ApExcel = CreateObject("Excel.application") 'Creates an object
    ApExcel.Visible = True ' So you can see Excel
    ApExcel.Workbooks.Add 'Adds a new book.
    ApExcel.Cells(1, 1).Formula = "test"
    ApExcel.PageSetup.PaperSize = xlPaperA4
    ApExcel.PageSetup.Orientation = xlLandscape
    ApExcel.PageSetup.FitToPagesWide = 1
    ApExcel.PageSetup.FitToPagesTall = 1
    End Sub

    แต่โปรแกรมจะ error ในส่วนของ .PageSetup ทุกคำสั่งเลย
    เครื่องผมใช้ object Excel11 นะครับ
    ไม่ทราบว่าผมทำ page setup ผิดตรงไหนครับ แล้วแก้ code ยังไงได้ครับ

  2. #2
    addy05
    Guest
    ลองทดสอบคำสั่งนี้ดูครับ
    Set ApExcel = Excel.Application
    ApExcel.ActiveSheet.PageSetup.Orientation = xlLandscape

Similar Threads

  1. time consumption
    By THEERASAK in forum Excel Expert Forum Library 2012 - 2007
    Replies: 4
    Last Post: 1 Aug 2009, 15:37
  2. Replies: 10
    Last Post: 12 Jun 2009, 15:09
  3. Time Stamp
    By anotai in forum Excel Expert Forum Library 2012 - 2007
    Replies: 2
    Last Post: 5 Jan 2008, 23:28
  4. ปัญหาเกี่ยวกับ run-time error 1040 ครับ
    By yutapong in forum Excel Expert Forum Library 2012 - 2007
    Replies: 2
    Last Post: 29 Jul 2007, 20:54
  5. Time Stamp
    By puyotpat in forum Excel Expert Forum Library 2012 - 2007
    Replies: 2
    Last Post: 16 Jul 2007, 13:55

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •