Visual Basic

For i As Integer = 0 To Me.DataGridView1.Rows.Count - 1
            For j = 0 To DataGridView1.ColumnCount - 1
                Dim g As Graphics
                g = Me.CreateGraphics()

                Dim str As String = Me.DataGridView1.Rows(i).Cells(j).Value
                           
                Dim y, X As Integer
                y += 20
                X += 30
                g.DrawString(str, New Font("Times New Roman", 12, FontStyle.Regular), Brushes.DarkGreen, X, y)
            Next
        Next

With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;http://www.Website.com/Subdir", Destination:=Range("$A$1"))
    .Name = "TableName"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlAllTables
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
End With