Select the name of the column from sheet Excel

Hi everyone,
i use vb.net with excel
First, i have a button "browse"
which open a workbook.
Second ,i have a button "get
the names of the sheets" which give me the name of the sheet in a combobox ,then i choose the sheet.
Then i have an other button " get
the column names " which give me the name of the columns of the table in a combobox .
When i select the name of the column a new sheet add named the
name of the column and which has the data of this column
what i want is :
when i select again the same column a messagebox will
be shown "you have already select it "
And when i go back to choose another sheet then another column
will be open without getting any error
this is the code of the combobox :
Public Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
xlWorkSheet = CType(xlWorkBook.Sheets(ComboBox1.Text), Excel.Worksheet)
xlWorkSheet.Activate()
xlApp.Visible = True
With xlWorkSheet
Dim key As String = CStr(DirectCast(ComboBox2.SelectedItem, KeyValuePair(Of Integer, String)).Key)
Dim value As String = DirectCast(ComboBox2.SelectedItem, KeyValuePair(Of Integer, String)).Value
Dim lastrow As Integer = xlWorkSheet.Cells.Rows.End(XlDirection.xlDown).Row
Dim colletter As String = ColumnIndexToColumnLetter(CInt(key))
exWS2 = DirectCast(xlWorkBook.Sheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
exWS2.Name = value
xlWorkSheet.Range("A1:A" & lastrow.ToString).Copy(exWS2.Range("A1"))
End With
End Sub
and if you want to know the code of the button here is :
Public Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim Excols As New Dictionary(Of Integer, String)
xlWorkSheet = CType(xlWorkBook.Sheets(ComboBox1.Text), Excel.Worksheet)
xlWorkSheet.Activate()
If ComboBox2.Items.Count = Nothing Then
With xlWorkSheet
Dim LastCol As Integer = xlWorkSheet.Cells(1, xlWorkSheet.Columns.Count).End(XlDirection.xlToLeft).Column
For x As Integer = 2 To LastCol
Excols.Add(x, xlWorkSheet.Cells(1, x).value.ToString)
Next
ComboBox2.DataSource = New BindingSource(Excols, Nothing)
ComboBox2.ValueMember = "Key"
ComboBox2.DisplayMember = "Value"
AddHandler ComboBox2.SelectedIndexChanged, AddressOf ComboBox2_SelectedIndexChanged
End With
Else
MsgBox("Déja Pleine!", CType(MessageBoxIcon.Error, MsgBoxStyle))
End If
End Sub
please help me

Hi
>> when i select again the same column a message box will be shown "you have already select it
Each time you select a value in the comobox , you could compare
each cell’s value with the value you just selected in the first row. If it is matched, then show the message box" you have already select it "
>>And when i go back to choose another sheet then another column will be open without getting any error
I am not sure the sentence’s meaning clearly, What do you mean about another column will be open? what's the error , Can you clarify this more
clear?
Best Regards
Lan
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.

Similar Messages

How to put the data from one excel sheet in another excel sheet

hi ,
I want put the data from one excel sheet in another excel sheet in seq. order Eg: I have one excel sheet in which i have 3 col. Name , Sno. , Email along with data .I want to put data from this sheet to another excel sheet in the following orders of col. Sno,Name, Email .
While loading data in another sheet , i have to perform validation like char field should n't contain numeric values and vice versa .
Let me know on this soon ..
regards
Prashant

Well, you can issue separate queries with the ordering you need from each tab in the spreadhseet. You can open an ODBC connection from a VBA macro, select a sheet, run a query, select another sheet and run another query. As for the validation, you can do this in Oracle via stored procedures or again in VBA code.

How to get the columns from SYS.ALL_COLUMNS and use it in COALESCE() Function.

Hi,
I have table called Employe. And the Columns are Emp_ID,EMP_NAME,SRC_SYS_CD,DOB
I have Query like
Select
COALESCE(MAX(CASE WHEN src_sys_cd='1' THEN Emp_id END), MAX(CASE WHEN src_sys_cd='2' THEN Emp_Id END))Emp_Id,
COALESCE(MAX(CASE WHEN src_sys_cd='1' THEN Emp_name END), MAX(CASE WHEN src_sys_cd='2' THEN Emp_Name END))Emp_name,
COALESCE(MAX(CASE WHEN src_sys_cd='1' THEN dob END), MAX(CASE WHEN src_sys_cd='2' THEN dob END))dob ,
from Employe
group by dob.
I want to generalize the query like get the columns from SYS.ALL_COLUMNS table for that table name and want to pass it to COALEACE() function. I tried with Cursor. But i didnt get the appropriate results.
Is there any way to achieve this? Please help me out in this regard.
Thanks,

Is this the kinda thing you're after?
Add a filter to the queries to get just a single table/
WITH allCols AS (
SELECT s.name as sName, o.name AS oName, c.name AS cName, column_id,
CASE WHEN st.name in ('float','bigint','tinyint','int','smallint','bit','datetime','money','date','datetime2','uniqueidentifier','sysname','geography','geometry') THEN st.name
WHEN st.name in ('numeric','real') THEN st.name + '('+CAST(c.scale AS VARCHAR)+','+CAST(c.precision AS VARCHAR)+')'
WHEN st.name in ('varbinary','varchar','binary','char','nchar','nvarchar') THEN st.name + '(' + CAST(ABS(c.max_length) AS VARCHAR) + ')'
ELSE st.name + ' unknown '
END + ' '+
CASE WHEN c.is_identity = 1 THEN 'IDENTITY ' ELSE '' END +
CASE WHEN c.is_nullable = 0 THEN 'NOT ' ELSE '' END + 'NULL' AS bText,
f.name AS fileGroupName
FROM sys.columns c
INNER JOIN sys.objects o
ON c.object_id = o.object_id
AND o.type = 'U'
INNER JOIN sys.systypes st
ON c.user_type_id = st.xusertype
INNER JOIN sys.schemas s
ON o.schema_id = s.schema_id
INNER JOIN sys.indexes i
ON o.object_id = i.object_id
AND i.index_id = (SELECT MIN(index_id) FROM sys.indexes WHERE object_ID = o.object_id)
INNER JOIN sys.filegroups f
ON i.data_space_id = f.data_space_id
), rCTE AS (
SELECT sName, oName, cName, column_id, CAST(cName + ' ' + bText AS VARCHAR(MAX)) as bText, CAST(cName AS VARCHAR(MAX)) AS colList, fileGroupName
FROM allCols
WHERE column_id = 1
UNION ALL
SELECT r.sName, r.oName, r.cName, c.column_id, CAST(r.bText +', ' + c.cName + ' ' +c.bText AS VARCHAR(MAX)), CAST(r.colList+ ', ' +c.cName AS VARCHAR(MAX)), c.fileGroupName
FROM allCols c
INNER JOIN rCTE r
ON c.oName = r.oName
AND c.column_id - 1 = r.column_id
), allIndx AS (
SELECT 'CREATE '+CASE WHEN is_unique = 1 THEN ' UNIQUE ' ELSE '' END+i.type_desc+' INDEX ['+i.name+'] ON ['+CAST(s.name COLLATE DATABASE_DEFAULT AS NVARCHAR )+'].['+o.name+'] (' as prefix,
CASE WHEN is_included_column = 0 THEN '['+c.name+'] '+CASE WHEN ic.is_descending_key = 1 THEN 'DESC' ELSE 'ASC' END END As cols,
CASE WHEN is_included_column = 1 THEN '['+c.name+']'END As incCols,
') WITH ('+
CASE WHEN is_padded = 0 THEN 'PAD_INDEX = OFF,' ELSE 'PAD_INDEX = ON,' END+
CASE WHEN ignore_dup_key = 0 THEN 'IGNORE_DUP_KEY = OFF,' ELSE 'IGNORE_DUP_KEY = ON,' END+
CASE WHEN allow_row_locks = 0 THEN 'ALLOW_ROW_LOCKS = OFF,' ELSE 'ALLOW_ROW_LOCKS = ON,' END+
CASE WHEN allow_page_locks = 0 THEN 'ALLOW_PAGE_LOCKS = OFF' ELSE 'ALLOW_PAGE_LOCKS = ON' END+
')' as suffix, index_column_id, key_ordinal, f.name as fileGroupName
FROM sys.indexes i
LEFT OUTER JOIN sys.index_columns ic
ON i.object_id = ic.object_id
AND i.index_id = ic.index_id
LEFT OUTER JOIN sys.columns c
ON ic.object_id = c.object_id
AND ic.column_id = c.column_id
INNER JOIN sys.objects o
ON i.object_id = o.object_id
AND o.type = 'U'
AND i.type <> 0
INNER JOIN sys.schemas s
ON o.schema_id = s.schema_id
INNER JOIN sys.filegroups f
ON i.data_space_id = f.data_space_id
), idxrCTE AS (
SELECT r.prefix, CAST(r.cols AS NVARCHAR(MAX)) AS cols, CAST(r.incCols AS NVARCHAR(MAX)) AS incCols, r.suffix, r.index_column_id, r.key_ordinal, fileGroupName
FROM allIndx r
WHERE index_column_id = 1
UNION ALL
SELECT o.prefix, COALESCE(r.cols,'') + COALESCE(', '+o.cols,''), COALESCE(r.incCols+', ','') + o.incCols, o.suffix, o.index_column_id, o.key_ordinal, o.fileGroupName
FROM allIndx o
INNER JOIN idxrCTE r
ON o.prefix = r.prefix
AND o.index_column_id - 1 = r.index_column_id
SELECT 'CREATE TABLE ['+sName+'].[' + oName + '] ('+bText+') ON [' + fileGroupName +']'
FROM rCTE r
WHERE column_id = (SELECT MAX(column_id) FROM rCTE WHERE r.oName = oName)
UNION ALL
SELECT prefix + cols + CASE WHEN incCols IS NOT NULL THEN ') INCLUDE ('+incCols ELSE '' END + suffix+' ON [' + fileGroupName +']'
FROM idxrCTE x
WHERE index_column_id = (SELECT MAX(index_column_id) FROM idxrCTE WHERE x.prefix = prefix)

Function returning SQL - dynamically select the column

Hi there,
[Oracle 11g],
Hi there,
I want to dynamically select the column to be displayed.
Or lets say it in an easier way regarding the EMP Table:
I got a table called teststable with value1 and value2 in it.
Value1 is EMPNO
Value 2 is DEPTNO
Now I like to have something like this:
Select (Select Value1 from testtable),(Select Value2 from testtable) from EMP This will not work. So I need a function for this. Does someone now how to get this to work? Thx in advance. Thorsten

+ 1 to the above replies.
An example to pick the column name dynamically from a table and rendering the output of EMP table as a XMLTYPE is here.Pushing it a little bit further, you can project back XML as relational rows and columns :
SQL> with testtable (value1, value2) as (
2    select 'EMPNO', 'DEPTNO' from dual
3 )
4 select x.*
5 from testtable t
6     , xmltable(
7         'for $r in fn:collection("oradb:/SCOTT/EMP")/ROW
8          return element r {
9            $r/*[local-name()=$v1]
10          , $r/*[local-name()=$v2]
11          }'
12         passing t.value1 as "v1"
13               , t.value2 as "v2"
14         columns value1 varchar2(30) path '*[1]'
15               , value2 varchar2(30) path '*[2]'
16       ) x
17 ;
VALUE1                         VALUE2
7369                           20
7499                           30
7521                           30
7566                           20
7654                           30
7698                           30
7782                           10
7839                           10
7844                           30
7900                           30
7902                           20
7934                           10
12 rows selected

To convert the values in the column from upper case to Camel Case.

Hi All,
I have requirement to convert the column values(Data in the Columns) from upper case to camel case in pivot table view.
For Eg:
I have
Table Name:Billing_Transaction
under Billing_Transaction table i Have column Comment_Text
Data in Comment_Text Column is
INSERT,
EXPORT,
AMEND
How i will change these values in to Insert,Export,Amend.(Camel Case condition)
I want only the first letter of a word to be in caps and others to be in smaller case.
Thanks,
Chitra Subramani.

Hi Aravind,
Thanks for immediate response.your query is helpful.But i need to satisfy another condition in my requirement by using same formula.
"REPLACE(UPPER(SUBSTRING(BILLING_TRANSACTION.BILLING_TRANSACTION_DESC FROM 1 FOR 1)) || lower(substring(BILLING_TRANSACTION.BILLING_TRANSACTION_DESC FROM 2)), '_', ' ')"
above query satisfying Camil case and replacing '_' with ' '(space)......but inthis query i want add another condition to satisfy camil case for word which comes after '_'
for example:
DECLINE_IMPORT
above query satisfying 2 conditions to convert above data into
"Decline import"
But in my requirement for word 'import' also it should come in camil case condition like
"Decline Import"
Thanks & Regards,
Chitra
Edited by: user6371773 on Apr 25, 2011 6:29 AM

How to view data in tables by selecting the synonym from the database objec

I could not figure out how to view data in tables by selecting the synonym from the database objects navigation tree. I had to first choose the synonym, view the details of the synonym to determine the table name, and then select the table from the database objects tree. Is this the only way available?

This functionality currently does not exist. I don't see it on the 1.1 statement of direction either, so perhaps someone from Oracle can give some insight as to when this could be expected.
Eric

After selecting the value from the list box, want to disable checkbox

hi guru,
After selecting the value from the list box, want to disable checkbox and custom control textbox(container) in module pool.
so please help me on this.
thanx,
man

in PBO,
loop at screen.
if screen-name = your textbox's name.
screen-input = 0.
modify screen.
endif.
endloop.

Select the column details for table in one column as varchar2(32000)

Oracle Version: ORACLE 10G R 2
Problem : Select the column details for some tables and want to store the same in VARCHAR2(32000) separated by ||
Example:
TABLE_NAME COLUMN_NAME DATA_TYPE
EMP EMPNO NUMBER
EMP ENAME VARCHAR2
EMP JOB VARCHAR2
EMP MGR NUMBER
EMP HIREDATE DATE
EMP SAL NUMBER
EMP COMM NUMBER
EMP DEPTNO NUMBER
EMP RN NUMBER
Want to store
COLUMNS (empno||ename||job||mgr||hiredate||sal||comm||deptno||rn);

SQL> var cur refcursor
SQL> declare
ctx number;
begin
ctx := dbms_xmlgen.newcontext('select * from emp');
dbms_xmlgen.setNullHandling(ctx, dbms_xmlgen.empty_tag);
open :cur for select * from xmltable('for $i in ROW return string-join($i/*, "||")' passing dbms_xmlgen.getxmltype(ctx).extract('ROWSET/ROW'));
end;
PL/SQL procedure successfully completed.
SQL> print cur
COLUMN_VALUE
7369||SMITH||CLERK||7902||17.12.1980 00:00:00||800||||20
7499||ALLEN||SALESMAN||7698||20.02.1981 00:00:00||1600||300||30
7521||WARD||SALESMAN||7698||22.02.1981 00:00:00||1250||500||30
7566||JONES||MANAGER||7839||02.04.1981 00:00:00||2975||||20
7654||MARTIN||SALESMAN||7698||28.09.1981 00:00:00||1250||1400||30
7698||BLAKE||MANAGER||7839||01.05.1981 00:00:00||2850||||30
7782||CLARK||MANAGER||7839||09.06.1981 00:00:00||2450||||10
7788||SCOTT||ANALYST||7566||19.04.1987 00:00:00||3000||||20
7839||KING||PRESIDENT||||17.11.1981 00:00:00||5000||||10
7844||TURNER||SALESMAN||7698||08.09.1981 00:00:00||1500||0||30
7876||ADAMS||CLERK||7788||23.05.1987 00:00:00||1100||||20
7900||JAMES||CLERK||7698||03.12.1981 00:00:00||950||||30
7902||FORD||ANALYST||7566||03.12.1981 00:00:00||3000||||20
7934||MILLER||CLERK||7782||23.01.1982 00:00:00||1300||||10
14 rows selected.

Have installed Airport express using windows vista, unit blinks green, selected the speakers from itunes but get no sound at all, even if I put a headphone in the airport express. Pls advise

Have installed Airport express using windows vista, unit blinks green, selected the speakers from itunes but get no sound at all, even if I put a headphone in the airport express. Pls advise

If the AX is working properly, it should not show up in your list of available networks (since it is "joined" to your router). Have you unplugged and replugged your AX? Unplugged and, after a minute, replugged your router? Do you have MAC address filtering enabled on your router? (if so, disable it to see if the AX works ... it will broadcast its MAC address to the router, and you can add it.) Is your firewall turned on? Turn it off and see if you can access Airtunes. You will have to open a port in your firewall if that is the case.
The AX should have the same network name as your router the wireless tab. When it shows up, what name is it broadcasting?

How to select the data from a Maintainance View into an internal table

Hi All,
Can anybody tell me how to select the data from a Maintainance View into an internal table.
Thanks,
srinivas.

HI,
You can not retrieve data from A mentenance view.
For detail check this link,
http://help.sap.com/saphelp_nw2004s/helpdata/en/cf/21ed2d446011d189700000e8322d00/content.htm
Regards,
Anirban

I can't print wirelessly using Airport Express. I have my HP printer connected to a USB hub, and the hub to the Airport Express, but when I select the HP from the printer list, my MacBook says the printer is "off-line" - even when it is not.

I can't print wirelessly using Airport Express. I have my HP printer connected to a USB hub, and the hub to the Airport Express, but when I select the HP from the printer list, my MacBook says the printer is "off-line" - even when it is not. I've tried several USB connectors, and several different ports on my USB hub; same result. I need to have the HP connected to the hub 'cause from there it's connected to our desktop Mac.

Hi,
I am currently replying to this as it shows in the iChat Community.
I have asked the Hosts to move it to Snow Leopard (you should not lose contact with it through any email links you get)
I also don't do Wirelss printing so I can't actaully help either.
10:01 PM Friday; July 29, 2011
Please, if posting Logs, do not post any Log info after the line "Binary Images for iChat"
 G4/1GhzDual MDD (Leopard 10.5.8)
 MacBookPro 2Gb( 10.6.8)
 Mac OS X (10.6.8),
"Limit the Logs to the Bits above Binary Images."  No, Seriously

I am trying to use photomerge compose. I open one standard jpeg image and one image that is my business logo in a png format. When I select the png image, to extract the logo from it, it appears as all white and will not allow me to select the logo from

I am trying to use photomerge compose. I open one standard jpeg image and one image that is my business logo in a png format. When I select the png image, to extract the logo from it, it appears as all white and will not allow me to select the logo from it. It has worked in the past but I downloaded the update today and photomerge will not work correctly. Any ideas?

hedger,
How do you expect anyone to help when we don't know a darned thing about the file, abut your setup, exact version of Photoshop and your OS, machine specs, etc.?
BOILERPLATE TEXT:
Note that this is boilerplate text.
If you give complete and detailed information about your setup and the issue at hand,
such as your platform (Mac or Win),
exact versions of your OS, of Photoshop (not just "CS6", but something like CS6v.13.0.6) and of Bridge,
your settings in Photoshop > Preference > Performance
the type of file you were working on,
machine specs, such as total installed RAM, scratch file HDs, total available HD space, video card specs, including total VRAM installed,
what troubleshooting steps you have taken so far,
what error message(s) you receive,
if having issues opening raw files also the exact camera make and model that generated them,
if you're having printing issues, indicate the exact make and model of your printer, paper size, image dimensions in pixels (so many pixels wide by so many pixels high). if going through a RIP, specify that too.
etc.,
someone may be able to help you (not necessarily this poster, who is not a Windows user).
a screen shot of your settings or of the image could be very helpful too.
Please read this FAQ for advice on how to ask your questions correctly for quicker and better answers:
http://forums.adobe.com/thread/419981?tstart=0
Thanks!

To Select the data from two table one is transp table and onther is cluster

Hi All,
I want to select the data from two tables
Here i am giving with an example.
Fileds: kunnr belnr from bseg. table bseg
fields: adrnr from kna1     table: kna1.
Know i want to put these into one internal table based on kunnr and belnr.
Thanks in advance.
Ramesh

Hi,
   U cant use joins on cluster table and BSEG is a cluster table so use FOR ALL ENTRIES for taht
refer this code
*&      Form sub_read_bsak
      text
--> p1        text
<-- p2        text
FORM sub_read_bsak.
*--Select data from BSAK Table
SELECT lifnr
         augdt
         augbl
         gjahr
         belnr
         xblnr
         blart
         dmbtr
         mwskz
         mwsts
         sgtxt
         FROM bsak
         INTO CORRESPONDING FIELDS OF TABLE it_bsak
         WHERE belnr IN s_belnr
         AND   augdt IN s_augdt.
IF sy-subrc EQ 0.
*--Sort table by accounting document and vendor number
    SORT it_bsak BY belnr lifnr.
ENDIF.
ENDFORM.                    " sub_read_bsak
*&      Form sub_read_bseg
      text
--> p1        text
<-- p2        text
FORM sub_read_bseg.
IF NOT it_bsak[] IS INITIAL.
*--Select data from BSEG table
    SELECT belnr
           gjahr
           shkzg
           kostl
           hkont
           ebeln
           ebelp
           FROM bseg
           INTO CORRESPONDING FIELDS OF TABLE it_bseg
           FOR ALL ENTRIES IN it_bsak
           WHERE belnr EQ it_bsak-belnr
           AND   gjahr EQ it_bsak-gjahr
           AND   shkzg EQ 'S'.
    IF sy-subrc EQ 0.
*--Sort table by accounting document
      SORT it_bseg BY belnr.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_read_bseg

How to make users to select the date from calendar control my making the date field read only in date time control in external list in sharepoint 2010

How to make users to select the date from calendar control only, by my making the date text field read only (don't want to let users type the date) in date time control in external list in sharepoint 2010. I am looking for a solution which can
be done through sharepoint desginer / out of the box.
thanks.

Congratulate you got the solution by yourself. I am new to a
WinForms calendar component, I feel so helpless on many problems even I'd read many tutorials. This question on the
calendar date selection did me a great favor. Cheers.

How to select the vendor from the source list in the PO(me21n) screen ??

Hi
How to select the vendor from the source list in the PO(me21n) screen.
Is there any Sources of Supply tab in the PO just like we have in the PR.
I don't want a PO raised from a PR which has got the Vendor assigned to it already.
Or the SAP doesnot provide the option of Source list/Assign source/Sources of Supply .....in the PO.
Kindly reply

There is not any facility available for Source Determination in PO. Only you can select the line item and click Menu Environment > Source List and view the list of sources available for the material but you can not chooss and assign. If you wan to assign the vendor then change the vendor already entered in PO and put the desired vendor.

Select the name of the column from sheet Excel

Similar Messages

Maybe you are looking for