SyntaxFix

[vba] Copying and pasting data using VBA code

'So from this discussion i am thinking this should be the code then. 

Sub Button1_Click()
    Dim excel As excel.Application
    Dim wb As excel.Workbook
    Dim sht As excel.Worksheet
    Dim f As Object

    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False
    f.Show

    Set excel = CreateObject("excel.Application")
    Set wb = excel.Workbooks.Open(f.SelectedItems(1))
    Set sht = wb.Worksheets("Data")

    sht.Activate
    sht.Columns("A:G").Copy
    Range("A1").PasteSpecial Paste:=xlPasteValues


    wb.Close
End Sub

'Let me know if this is correct or a step was missed. Thx.

Examples related to vba

• Copy filtered data to another sheet using VBA • Better way to find last used row • Check if a value is in an array or not with Excel VBA • Creating an Array from a Range in VBA • Excel: macro to export worksheet as CSV file without leaving my current Excel sheet • VBA: Convert Text to Number • What's the difference between "end" and "exit sub" in VBA? • Rename Excel Sheet with VBA Macro • Extract Data from PDF and Add to Worksheet • Quicker way to get all unique values of a column in VBA?

Examples related to excel

• Python: Pandas pd.read_excel giving ImportError: Install xlrd >= 0.9.0 for Excel support • Converting unix time into date-time via excel • How to increment a letter N times per iteration and store in an array? • 'Microsoft.ACE.OLEDB.16.0' provider is not registered on the local machine. (System.Data) • How to import an Excel file into SQL Server? • Copy filtered data to another sheet using VBA • Better way to find last used row • Could pandas use column as index? • Check if a value is in an array or not with Excel VBA • How to sort dates from Oldest to Newest in Excel?

Examples related to excel-2010

• Get list of Excel files in a folder using VBA • filter out multiple criteria using excel vba • Swap x and y axis without manually swapping values • Excel 2010 VBA - Close file No Save without prompt • Removing special characters VBA Excel • Creating a list/array in excel using VBA to get a list of unique names in a column • Excel formula to get week number in month (having Monday) • Excel VBA Run-time Error '32809' - Trying to Understand it • IF statement: how to leave cell blank if condition is false ("" does not work) • Excel how to find values in 1 column exist in the range of values in another