excel vba current worksheet

SQL query command stringAnl Open strcn ' Connect with database, if successful, return connection object cnRs. Open strSQL, CN ' executes SQL commands contained in strSQL and results are saved in RS Recordset objecti = 2 Set sht = Thisworkbook.worksheets ("test") ' Sht points to the Test sheet of the current workbookDo and not Rs. EOF ' When the data pointer is not moved to the end of the recordset, loop the following actionsSht. Cells (i, 1) = RS ("C

sheets to a new workbook.$WorkBook. Sheets | %{ # Sets the path of the new WorkBook $NewWorkBookPath = "$PWD \$ ($WorkBook. Name) _$ ($_. Name). xlsx " # Create a new workbook $NewWorkBook = $Excel. Workbooks.Add () # Copy the current sheet into the new workbook $_. Copy ($NewWorkBook. Sheets.item (1)) # Default New workbook is 3 empty sheet, the following statement is to delete these

We often get the Excel worksheet printed, leaving a few dotted lines printed. As shown in the following illustration: Many students reflect that they have tried a lot of operations but still can not be eliminated. Is there no other way than to reopen it? You can do this: In Excel 2010, click File-Options. In

Many of the data in the worksheet are generated by formula calculations, so how can you let others see the results of a calculation and hide the formula you use? Today we are going to introduce you to use macros to solve this problem. First, create macros Start Excel, select Tools-Macros-record new macros, enter the name of the macro in the open window, and set the save in item to personal Macro Workbook,

We often get the Excel worksheet printed, leaving a few dotted lines printed. As shown in the following illustration: Many students reflect that they have tried a lot of operations but still can not be eliminated. Is there no other way than to reopen it? You can do this: In Excel 2010, click File-Options. In

1. Start Excel 2013 and open the document, click Select the cell in any cell in the datasheet and press the "ctrl+*" key to select all the current data regions, as shown in Figure 1. Figure 1 Selecting the current data region 2. Click a cell in the worksheet, such as cell A2, and then hold down the Shift

As StringDim objVBAProject As VBE. VBProjectDim objVBComponent As VBE. VBComponentDim objVBFormComponent As VBE. VBComponentDim objObjectFormButton As ObjectObjShape = objWorksheet. Shapes. AddOLEObject ("Forms. CommandButton.1 ")ObjShape. Name = "btn1"ObjOLEObject = objWorksheet. OLEObjects ("btn1 ")TryObjCommandButton = TryCast (objOLEObject. Object, Forms. CommandButton)ObjCommandButton. Caption = "Click Me"StrModuleSnippet = "private sub btn1_Click ()" Chr (13 )_"UserForm1.Show" Chr (13)

When you set page number of pages in Excel, most people would like to use Page setup, but have you ever thought of putting "nth page/Total M page" in any cell? Not just in the header and footer? Method one, using VBA Function page () page = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1) Application.volatile End Function With VBA I

When you set up page number in Excel, most people would like to use Page setup, but have you ever thought of putting "nth page/Total M page" in any cell? Instead of just putting it in the header footer? Method one, using VBA Function page () page = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1) Application.volatile End Function With VBA