Use cint to convert to integers On Sun 4 Feb, 2018 12:18 am , <mercuryqtp@googlegroups.com> wrote:
> mercuryqtp@googlegroups.com > <https://groups.google.com/forum/?utm_source=digest&utm_medium=email#!forum/mercuryqtp/topics> > Google > Groups > <https://groups.google.com/forum/?utm_source=digest&utm_medium=email/#!overview> > <https://groups.google.com/forum/?utm_source=digest&utm_medium=email/#!overview> > Topic digest > View all topics > <https://groups.google.com/forum/?utm_source=digest&utm_medium=email#!forum/mercuryqtp/topics> > > - When to set excel Objects to nothing > <#m_4698339016913842807_group_thread_0> - 1 Update > - Problem with Importing the sheet with numbers. > <#m_4698339016913842807_group_thread_1> - 1 Update > > When to set excel Objects to nothing > <http://groups.google.com/group/mercuryqtp/t/4e43d675a64c3e95?utm_source=digest&utm_medium=email> > sarahme...@gmail.com: Feb 02 01:25PM -0800 > > Hi guys, > > Can we use the same excel object in different functions but same Action? > I guess my concern is I'm calling the subs more than 1 time and not > setting > the > object to nothing until the end. Is that ok? What's the best approach? > > Thanks > > *Example:* > > Dim objExcel, objWorkbook, objWorksheet, i > > Set objExcel = CreateObject("Excel.Application") > > for i = 1 to 20 > AddNumbers > FormatNumber > Next > > > *Sub AddNumbers* > objExcel.Visible = True > Set objWorkbook = objExcel.Workbooks.open("abc.xlsx") > set objWorksheet= objWorkbook.Worksheets("MySheet") > objWorksheet.Activate > Wait(2) > > objExcel.Cells(RowCount,1) = 89.98 > objExcel.Cells(RowCount,1) = 11.3 > objExcel.Cells(RowCount,1) = 19.00 > objExcel.ActiveWorkbook.Save > objExcel.application.quit > *End Sub* > > > > *Sub FormatNumber* > objExcel.Visible = True > Set objWorkbook = objExcel.Workbooks.open("abc.xlsx") > set objWorksheet= objWorkbook.Worksheets("MySheet") > objWorksheet.Activate > Wait(2) > > objExcel.Columns.NumberFormat = 0 > > objExcel.ActiveWorkbook.Save > objExcel.application.quit > *End Sub* > > > Set objExcel = nothing > set objWorkbook = nothing > Set objWorksheet = nothing > Back to top <#m_4698339016913842807_digest_top> > Problem with Importing the sheet with numbers. > <http://groups.google.com/group/mercuryqtp/t/3cfb15e63017afaa?utm_source=digest&utm_medium=email> > sarahme...@gmail.com: Feb 02 11:52AM -0800 > > Hi, > > Can we export and import multiple times during runtime? > > *Iteration 1* > Enter numbers to column 1 (row 1-5) > Export the excel file > Take Sum of those numbers and save excel file > Import the sheet > > *Iteration 2* > Enter numbers to column 2 (row 1-5) > Export the excel file > Take Sum of those numbers and save excel file > Import the sheet > > *Problem* > Sum is not calculated for column 2. I noticed that after the first > import the numbers in column 2(row 1-5) have > double quotes around them. > > > How can I solve this problem. > > Thanks > Back to top <#m_4698339016913842807_digest_top> > You received this digest because you're subscribed to updates for this > group. You can change your settings on the group membership page > <https://groups.google.com/forum/?utm_source=digest&utm_medium=email#!forum/mercuryqtp/join> > . > To unsubscribe from this group and stop receiving emails from it send an > email to mercuryqtp+unsubscr...@googlegroups.com. > -- -- You received this message because you are subscribed to the Google "QTP - HP Quick Test Professional - Automated Software Testing" group. To post to this group, send email to MercuryQTP@googlegroups.com To unsubscribe from this group, send email to mercuryqtp+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/MercuryQTP?hl=en --- You received this message because you are subscribed to the Google Groups "QTP - HP Quick Test Professional - Automated Software Testing" group. To unsubscribe from this group and stop receiving emails from it, send an email to mercuryqtp+unsubscr...@googlegroups.com. For more options, visit https://groups.google.com/d/optout.