Sub ImportDataFromClosedExcelToSQLServer()
    Dim xlCn As Object, xlRs As Object
    Dim xlFilePath As String, tableName As String, connectionString As String
    'Dim columnNames As String, rowValues As String
    Dim batchSize As Long, lastRow As Long, rCount As Long, eRow As Long
    Dim i As Long, j As Long, lastCol As Long, tableExists As Boolean

    Debug.Print "Start Time: " & Now()

    ' File path and table name configuration
    xlFilePath = "C:\Users\Rushikesh Badne\Downloads\Employee Sample Data.xlsx" ' Update as needed
    tableName = "Data"
    connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                       "Data Source=" & xlFilePath & ";" & _
                       "Extended Properties='Excel 12.0 Xml;HDR=YES';"
                       
      Set xlCn = CreateObject("ADODB.Connection")
      Set xlRs = CreateObject("ADODB.Recordset")
      xlCn.Open connectionString
      
       sqlQuery = "SELECT * FROM [Data$]"
      xlRs.Open sqlQuery, xlCn, 1, 1
    
    lastCol = xlRs.Fields.Count - 1
    lastRow = xlRs.recordCount
'      ' Check data availability in Excel
'       If xlRs.EOF Then
'          MsgBox "No data found in the Excel file!", vbExclamation
'          GoTo CleanUp
'       End If

    ' Check table existence in SQL Server
    sqlQuery = "SELECT 1 FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = '" & tableName & "'"
    Debug.Print sqlQuery
    If cnopen(1) = False Then GoTo CleanUp
    If rsOpen() = False Then GoTo CleanUp


    'On Error Resume Next
    If rs.recordCount >= 1 Then
        tableExists = True
    Else
        tableExists = False
    End If
'    On Error GoTo 0

   If tableExists Then
        sqlQuery = "DELETE FROM " & tableName
        If rsOpen(2) = False Then GoTo CleanUp
       
    Else
       ' Create header based on Excel table Header and create table
        sqlQuery = "CREATE TABLE " & tableName & "("
        For j = 0 To xlRs.Fields.Count - 1
            sqlQuery = sqlQuery & "[" & xlRs.Fields(j).Name & "] NVARCHAR(255)"
            If j < xlRs.Fields.Count - 1 Then sqlQuery = sqlQuery & ", "
            Debug.Print sqlQuery
        Next j
        sqlQuery = sqlQuery & ");"
        If rsOpen(2) = False Then GoTo CleanUp
        MsgBox tableName & " table created successfully!"
    End If

 ' Import data to SQL Server
 '  Set BatchSize how much record in 1 batch to insert in table.
    batchSize = 2 '1000
    rCount = 1

    xlRs.MoveFirst
    Do While rCount <= lastRow
        DoEvents
        eRow = Application.Min(rCount + batchSize - 1, lastRow)
        sqlQuery = "INSERT INTO " & tableName & " ("

         'Add column names
        For j = 0 To lastCol
            sqlQuery = sqlQuery & "[" & xlRs.Fields(j).Name & "]"
            If j < lastCol Then sqlQuery = sqlQuery & ", "
        Next
        sqlQuery = sqlQuery & ") VALUES "

        ' Add row values
        For i = rCount To eRow
            DoEvents
            rowValues = "("
            For j = 0 To lastCol
                rowValues = rowValues & "'" & xlRs.Fields(j).Value & "'"
                If j < lastCol Then rowValues = rowValues & ", "
            Next
            rowValues = rowValues & "),"
            sqlQuery = sqlQuery & rowValues
            xlRs.MoveNext
            rCount = rCount + 1
            Debug.Print sqlQuery
        Next
        sqlQuery = Left(sqlQuery, Len(sqlQuery) - 1) & ";"

        Debug.Print sqlQuery
        If rsOpen(2) = False Then GoTo CleanUp
    Loop
    
    Debug.Print sqlQuery
    MsgBox "Data added successfully!"

CleanUp:
    ' Close and clean up
    On Error Resume Next
    rs.Close: Set rs = Nothing
    cn.Close: Set cn = Nothing
    xlRs.Close: Set xlRs = Nothing
    xlCn.Close: Set xlCn = Nothing
    Debug.Print "End Time: " & Now()
    Exit Sub

ErrorHandler:
    MsgBox "An error occurred: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

Sub CopyThreeSheetsToNewWorkbook()
    Dim wbSource As Workbook
    Dim wbDestination As Workbook
    Dim sheetNames As Variant
    Dim wsSource As Worksheet, wsDestination As Worksheet
    Dim rngSource As Range
    Dim lastRow As Long, lastCol As Long
    Dim i As Long
 
    ' Set reference to the source workbook (current workbook)
    Set wbSource = ThisWorkbook
 
    ' Define the sheet names to copy
    sheetNames = Array("myAdmin", "Temp", "Sheet1")
 
    ' Create a new workbook for the destination
    Set wbDestination = Workbooks.Add
 
    ' Loop through each sheet to copy data
    For i = LBound(sheetNames) To UBound(sheetNames)
        ' Set source and destination worksheets
        Set wsSource = wbSource.Sheets(sheetNames(i))
        If i = 0 Then
            Set wsDestination = wbDestination.Sheets(1)
        Else
            Set wsDestination = wbDestination.Sheets.Add(After:=wbDestination.Sheets(wbDestination.Sheets.Count))
        End If
        wsDestination.Name = wsSource.Name
 
        ' Determine the range to copy
        lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
        lastCol = wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column
        Set rngSource = wsSource.Range("A1", wsSource.Cells(lastRow, lastCol))
 
        ' Copy and paste data
        rngSource.Copy
        wsDestination.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        Application.CutCopyMode = False
    Next i
 
    MsgBox "Data from three sheets has been copied successfully!", vbInformation
End Sub

End Sub

This content is password protected. To view it please enter your password below:

Password:

Create a dynamic, Excel-based resume by simply updating the provided Excel sheet. This innovative format allows you to input your current and preferred location, education, certifications, experience, designation, skills, tools, and experience summary. Once the data is entered, it automatically generates a professional, dashboard-style resume. Ideal for data analytics professionals, this tool not only showcases your qualifications but also demonstrates your proficiency in Excel, VBA, and dashboard creation. Impress potential employers with a sleek, interactive resume that highlights your expertise in data analytics and related tools. Get your resume dashboard ready with ease!

Conclusion

An Excel-based resume with a dashboard provides a dynamic and visually appealing way to present your qualifications. Regularly update the data and refine the design to maintain its effectiveness. This format not only showcases your technical skills but also your ability to create compelling data visualizations.