[VBA] 파일 다운로드하기 - 일부 수정한 버전

Function DownloadFromURL(FileUrl As String, NewFullName As String) As String Dim oXMLHTTP As Object Dim oStream As Object DownloadFromURL = vbNullString If NewFullName = "" Or Dir(NewFullName) "" Then Exit Function Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0") On Error Resume Next oXMLHTTP.Open "GET", FileUrl, False oXMLHTTP.send On Error GoTo 0 If oXMLHTTP.Status 200 Then Exit Functio..

[VBA]파일 다운로드 하기

Function DownloadFromURL(FileUrl As String, NewFullName As String) Dim oXMLHTTP As Object, oStream As Object On Error GoTo ERROR_EXIT Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP") oXMLHTTP.Open "GET", FileUrl, False oXMLHTTP.send If oXMLHTTP.Status = 200 Then Set oStream = CreateObject("ADODB.Stream") oStream.Open oStream.Type = 1 oStream.Write oXMLHTTP.responseBody oStream.SaveToFile NewFullNam..

code128 font

=SUBSTITUTE(code128(A2),"Â"," ")

code39 font

엑셀 & VBA - 서식 삭제하기

Range("A1:A15").ClearFormats

기본 급여명세서 양식 엑셀 파일 포함