VBA切换识别IE窗口
VBA非登陆下载Excel文件并处理例子
'下载文件相关函数申明 Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Public Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long Sub down() nUrl = "下载链接" localFilename = ThisWorkbook.Path & "\文件名.拓展名" lngRetVal = URLDownloadToFile(0, nUrl, localFilename, 0, 0) If Dir(localFilename, 16) <> Empty Then '文件存在时执行 DeleteUrlCacheEntry nUrl '清除缓存 Set wb = Workbooks.Open(localFilename) '打开文件 '业务逻辑代码 wb.Close 0 '关闭文件0不保存 Kill localFilename '删除文件 End If End Sub '64位兼容参考https://msdn.microsoft.com/library/ee691831.aspx
excel VBA判断工作表是否存在&不存在时创建
Function 表存在(s) For Each i In Sheets If i.Name = s & "" Then 表存在 = 1 '连接空白是避免表格名为数值时格式不同 ' Debug.Print i.Name = s Next End FunctionFunction 建表(s) For Each i In Sheets If i.Name = s Then Exit Function Next Sheets.Add(, Sheets(Sheets.Count)).Name = s ' Sheets.Add.Name = s'创建在前面 ' Sheets.Add 方法 (Excel)：https://www.office26.com/excel/excel_7221.html End Function
Excel VBA切换识别IE窗口
Dim objShell As Object Dim objIE As Object Dim n As Integer Set objShell = CreateObject("Shell.Application") For n = objShell.Windows.Count To 1 Step -1 Set objIE = objShell.Windows(n - 1) If objIE Is Nothing Then Exit For End If If Right(UCase(objIE.FullName), 12) = "IEXPLORE.EXE" Then Debug.Print objIE.document.URL If objIE.document.URL = http://www.office26.com Then End If End If