AppExcel.Application.ActiveWindow = True AppActivate("Microsoft Excel") Dim AppExcel As Object = CreateObject("excel.application") AppExcel.Application.ActiveWindow = True
Dim FileName As String = AppPath & "\file\filename.xls" Dim xlApp As New Excel.Application xlApp.Visible = False xlBook = xlApp.Workbooks.Open(FileName, Password:="Password", [ReadOnly]:=True) xlApp.WindowState = XlWindowState.xlMaximized xlApp.Visible = True 'Dim xlSheet As Excel.Worksheet = _ 'CType(xlBook.Worksheets(1), Excel.Worksheet) 'With xlSheet ' '.Range("A1").Value = FileName ' .Range("A1").Select() 'End With ' Code ที่ส่ง Application ให้มาอยู่หน้าสุดของ Windows (Bring to Front) Dim proc As Process() = Process.GetProcessesByName("EXCEL") ' Procress นี้แล้วแต่ต้องการ ของผมใช้ EXCEL If proc.Length > 0 Then AppActivate(proc(0).Id) xlApp = Nothing xlBook = Nothing xlSheet = Nothing xlsRang = Nothing GC.Collect()
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง
จัดไปครับ Good!
