erajanraja24

import java.io.File;
import java.io.FileInputStream;
import java.io.IOException;
import org.apache.poi.ss.usermodel.Cell;
import org.apache.poi.ss.usermodel.Row;
import org.apache.poi.xssf.usermodel.XSSFSheet;
import org.apache.poi.xssf.usermodel.XSSFWorkbook;

public class writeexcel {

erajanraja24

Sub asinfetch()

Dim driver As New FirefoxDriver
driver.Get "http://www.amazon.com/gp/product/B00MFY3GB4", 20000
driver.Window.Maximize

Set proe = driver.FindElementById("detail-bullets")
Set cla = proe.FindElementByClass("content")
Set li = cla.FindElementsByTag("li")

erajanraja24

Sub check()

Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer, o As Integer
Dim count()
cnt = 0
lrow = ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Row
lcol = ThisWorkbook.Sheets(1).Cells(1, Columns.count).End(xlToLeft).Column
p = ThisWorkbook.Sheets(2).Range("A65536").End(xlUp).Row
q = ThisWorkbook.Sheets(2).Cells(1, Columns.count).End(xlToLeft).Column

erajanraja24

Title-Done
Brand-Done
List Price
price
Sale price
Availability-Done
Merchant info-Done
Fullfilled by amazon?-Done
About the product-Done
Product description-Done

erajanraja24

Sub copyimage1()

'Activate the sheet 1
ThisWorkbook.Sheets(1).Activate
'Select Range A1
ThisWorkbook.Sheets(1).Range("A1").Select
'Copy the image and all other values
Selection.Copy
'Select the target cell D6
ThisWorkbook.Sheets(1).Range("D6").Select

erajanraja24

    Sub copyimage2()
    
    'Activate the sheet 1
    ThisWorkbook.Sheets(1).Activate
    
    'Select Range A1
    ThisWorkbook.Sheets(1).Range("A1").Select
    
    'Copy the image and all other values
    Selection.Copy

erajanraja24

Sub normalspeed()

Dim StartTime As Double
Dim SecondsElapsed As Double

'Timer Begins
  StartTime = Timer

For i = 1 To 100
    For j = 1 To 100

erajanraja24

Sub check()

'Initialize the Firfox Driver
Dim driver As New FirefoxDriver
'Navigate to Google web page
driver.Get ("https://www.google.co.in")
'Maximize the Firefox driver
driver.Window.Maximize

End Sub

erajanraja24

Sub autoit()

'Create and initialize an object
Dim autoit As AutoItX3

Set autoit = New AutoItX3

'Check autoit installation
If IsNull(autoit) Then
    MsgBox "Autoit Is Not installed on your machine", vbCritical + vbOKOnly, "Verify"

erajanraja24

Sub deleterowsvba()

Dim lrow As Integer, i As Integer

'Determine the last row of column A in sheet 1
lrow = ThisWorkbook.Sheets(1).Range("A65356").End(xlUp).Row

'Find and delete the rows which contain property 2 starting from the last column
For i = lrow To 2 Step -1
    If ThisWorkbook.Sheets(1).Cells(i, 2) = 2 Then