Snasui Excel Forum

Code: Select all

Function Dataperforman()
    Dim wbI As Workbook, wbO As Workbook
    Dim wsI As Worksheet
    Set wbI = ThisWorkbook
    Set wsI = wbI.Sheets("Data") '<~~ Sheet where you want to import
    Set wbO = Workbooks.Open(TextBox1.Text)
    wbO.Sheets("Data").Range("$A:$E").Cells.Copy wsI.Cells.Range("$A:$E")
    wbO.Close SaveChanges:=False
End Function

Code: Select all

Function saveandprint()
    ThisWorkbook.Sheets("Graph").Copy
    ActiveWorkbook.SaveAs
End Function

Code: Select all

Sheets("Graph").Select
    Cells.Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("Sheet1").Name = "Report"
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\jameboy555\Desktop\1682016.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Range("A1").Select

Code: Select all

Dim FileSaveName As String
    ThisWorkbook.Sheets("Graph").Copy
    Application.CutCopyMode = False
    FileSaveName = Application.GetSaveAsFilename( _
    filefilter:="Excel Files (*.xls),*.xls")
If FileSaveName <> "" Then
    ActiveWorkbook.SaveAs Filename:=FileSaveName, FileFormat:=xlNormal
    MsgBox "บันทึกข้อมูลสำเร็จ" & FileSaveName
End If