Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
CrudRepository and second order SQL injection
I am using the CrudRepository.save(entity) method from the Spring framework in my code. Will CrudRepository.save prevent malicious data from entering the database? Data that can be used for second order SQL injection. Such as "A' OR 1=1" Is there validation of the strings in "entity" before... -
Cannot import a package
I am creating a JSP page UploadFile.jsp. I keep getting the error. The org.apache.commons.fileupload.disk cannot be resolved. I need the package for the DiskFileItemFactory class. Based on my online research, I pasted the following JAR files to the WEB-INF/lib folder... -
Autofilter and Delete(partial row deletion)
I have attached a sample Excel file. The purpose of my task is to perform a delete and shift cells up on the following ranges. "D4:F4","D6:F6","D7:F7". While doing so, I would like to keep the data in Columns H to J intact... -
Autofilter and Delete(partial row deletion)
Below is the code I posted earlier to filter and delete rows that meet certain criteria. const xlUp = -4162 lastRow = ws1.UsedRange.Rows.Count lastColumn = ws1.UsedRange.Columns.Count Set rngDataBlock = ws1.Range(ws1.Cells(1,1),ws1.Cells(lastRow,lastColumn)) rngDataBlock.AutoFilter... -
Cell value when reference is used
I found a solution by converting formulas to absolute values before assigning the value to string1. My new code is as follows. Set ws1 = wb1.Worksheets("Sheet1") Set rng1 = ws1.Range("F5").Value If rng1.HasFormula Then rng1.Formula = Application.ConvertFormula(rng1.Formula,1,1,1) End If... -
Cell value when reference is used
My VBScript works correctly on my local machine but not on a remote server. I closed all instances of Excel by accessing the Task Manager on the remote server but my code still does not work as expected. Do you have any suggestions for settings on the remote server that is causing this issue? -
Cell value when reference is used
One of the cells(Row:5,Column:6) in my Excel Sheet1 has a reference value in Sheet2. ='Sheet2'!$C14 My VBScript code is as follows. Set ws1 = wb1.Worksheets("Sheet1") string1 = ws1.Cells(5,6).Value WScript.Echo string1 string1 returns a value of 0 instead of the final value based on the... -
Autofilter and Delete
I have figured out a solution. Here is the attached code. const xlUp = -4162 lastRow = ws1.UsedRange.Rows.Count lastColumn = ws1.UsedRange.Columns.Count Set rngDataBlock = ws1.Range(ws1.Cells(1,1),ws1.Cells(lastRow,lastColumn)) rngDataBlock.AutoFilter 4,"a",,,False If ws1.Cells(1,4).Value =... -
Autofilter and Delete
I would like to Autofilter an Excel worksheet based on criteria and delete the visible rows. I know Excel VBA has such capability. Link Can you help me in writing such code in VBScript? -
Delete and shift cells up
I have figured out the solution. const xlUp = -4162 Set objRange = ws1.Range("C4:C7") objRange.Delete xlUp -
Delete and shift cells up
I have the following code to delete a range of cells and shift cells up. Set objRange = ws1.Range("C4","C7") objRange.Delete xlToUp However, it is giving me an error. Can I get the correct code for this operation? -
VBScript Used Range
I have the following VBScript code. lastRow = editWorkbook.Sheets(sheetName).UsedRange.Rows.Count lastColumn = editWorkbook.Sheets(sheetName).UsedRange.Columns.Count WScript.Echo ("Last row:" & CStr(lastRow)) WScript.Echo ("Last column:" & CStr(lastColumn)) WScript.Echo("Value:" &... -
Runtime error on Validation object
My code now executes correctly. Thank you. -
Runtime error on Validation object
I have the following VBScript code. Dim xlapp ' as excel object Dim WSx, WSy ' as excel worksheet Dim x, y ' as workbook Dim fso Dim list1 Set xlapp = CreateObject("Excel.Application") Set fso = CreateObject("Scripting.FileSystemObject") Dim fullpath fullpath =...
