Inputbox

[#1]

Good Morning to all,

Is it possible to store the values in a QVD through input box.

I have attached the sample, is there any work around....

Regards

Joe

[kaushiknsolanki]

Hi,

   You can send it to excel, but i couldnt find any thing to send it to qvd file.

   For exporting to excel. go to Properties -> Caption -> Click Send to excel.

Regards,

Kaushik Solanki

[#3]

Dear Kaushik,

Thanks for your reply.

But we have nearly 100 employees and this like a database for another qlikveiw application.

I would like to enter the values based on employee code.

Is it possible if yes means can you give me a exmple.

Regards

Joe

[#4]

Hi Joe,

Why cant you update the data int excel or some other txt file isntead of QVD? as QVW can load data from these as well.

[kaushiknsolanki]

Hi,

   You are just using the variables to store the data.

   If you want to use it as database, why dont you create a xls file and then use that as database.

  Meaning, creating a xls file which will have everything, like emp_Id and the data for them. For example.

  Emp_ID,Field1, Field2.......

    1, ABC, PQR

    2,ABC, XYZ

  Now if you want user 1 to see only his data you can use Section Access.

Regards,

Kaushik Solanki

[#6]

Dear Kaushik,

Currently we are doing like this every month we are preparing a excel file and then managed in QV.

What I am thinking is better doing this why don't we create a separte QV to create the same Excel file.

I have attached the new one, is it possible after cliking the Sino and then we have enter the Basic, Hra, Medical etc and store it in a excel file.

Regards

Joe

[kaushiknsolanki]

Hi,

   Use below macro to  send the data of input box to excel.

   Sub ExportData

   rem *** This method is only meaningful for charts and table boxes ***

   set obj = ActiveDocument.GetSheetObject("IB01")    

   obj.SendToExcel

   End sub

   Note:-  Change the Object ID to the Object ID of your Inputbox.

   Add Action to  button -> External -> Run Macro.

Regards,

Kaushik Solanki

[matt_crowther]

To Export a Chart to QVD via a macro:

Sub Export

set obj = ActiveDocument.GetSheetObject("CH500")

obj.ExportEx "C:\test.qvd", 4

End Sub

Should be easy to adapt to your needs.

Hope that helps a little,

Matt - Visual Analytics Ltd

[#9]

Dear Kaushik,

Perfect,

but little modifcation is required, there is a salary slip template avilable(Like Name, Basic, HRA etc) in excel file and it should write the values for each employee that is when I clik the button it should append the next employee records.

Regards

Joe

[#10]

Dear Kaushik,

As I tried to export the values to excel sheet though the following macro but I am getting strucked, can you help me.

Sub ExportData

   rem *** This method is only meaningful for charts and table boxes ***
  

Dim

wsname
Set XLApp = CreateObject("Excel.Application")
XLApp.Visible = false
Set XLDoc = XLApp.Workbooks.Add
wsname = ""
wsname = "Sheet1"

strFileName

= "D:\test.xls"

Set

xlWB = XLApp.Workbooks.Open(strFileName)

ActiveDocument.ClearAll True
index = xlWB.Sheets("Sheet2").Cells(1,1).value 

set

obj = ActiveDocument.GetSheetObject("IB01")    

 
xlWB.Sheets("Sheet1").Cells(index,1).value  = "Emp Name"
xlWB.Sheets("Sheet1").Cells(index,2).value  = ActiveDocument.evaluate ("Basic Salary")
xlWB.Sheets("Sheet1").Cells(index,3).value  = ActiveDocument.evaluate ("HRA")
xlWB.Sheets("Sheet1").Cells(index,4).value  = ActiveDocument.evaluate("Medical")
xlWB.Sheets("Sheet1").Cells(index,5).value  = ActiveDocument.evaluate("Gross Salary")
xlWB.Sheets("Sheet2").Cells(1,1).value =  index + 1
xlWB.Save

XLApp

.DisplayAlerts=false
xlWB.Close
XLApp.Quit

End sub

Regards

Joe