Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

1 Aralık 2011 Perşembe

Save Web Pages And Objects By ExecWB

'Module1

'Available References List
'1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE
'3) Name: stdole, Description: OLE Automation, FullPath: C:\Windows\SysWOW64\stdole2.tlb
'4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLL

'5) Name: SHDocVw, Description: Microsoft Internet Controls, Full Path: C:\WINDOWS\system32\ieframe.dll
Option Explicit
Private Url As String
Private IE As New InternetExplorer
Sub ExecWB()
On Error GoTo Hata
IE.Visible = True
Url = "http://www.excelkodklavuzu.blogspot.com"
IE.Navigate Url
Do
DoEvents
Loop While Not IE.ReadyState = 4
IE.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
Exit Sub
Hata:
MsgBox VBA.Err.Description, vbInformation, "[PBİD®]"
End Sub
'Sub References_List()
' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References
' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1
' Next Eleman
'End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul