Garfield_King-CSDN博客

原创 excel vba : extract txt file

Module_sub_function.bas---------------------------------Attribute VB_Name = "Module_sub_function"Option ExplicitPublic Const gs_toolbar_name = "Often2"Public gs_format_sheet As StringPub

2017-01-07 16:45:06 765

原创 excel tool: List objects / file and folders

Module_Common_SubFun.bas------------------------------------------Attribute VB_Name = "Module_Common_SubFun"Option ExplicitOption Base 1Public Function f_to_continue() Dim li_choice A

2017-01-07 16:39:38 433

原创 Excel VBA Table Tools / DB facilities

ThisWorkbook.cls-----------------------------------------VERSION 1.0 CLASSBEGIN MultiUse = -1 'TrueENDAttribute VB_Name = "ThisWorkbook"Attribute VB_GlobalNameSpace = FalseAttribut

2017-01-07 16:25:25 579

原创 Excel Common Function 2

Option ExplicitOption Base 1Public Function f_to_continue() Dim li_choice As Integer If f_if_sheet_exists(gs_report_name) Then li_choice = MsgBox(prompt:="The sheet " & gs_r

2017-01-07 16:18:01 696

原创 Excel VBA common functions

Option ExplicitOption Base 1Public Function f_to_continue() Dim li_choice As Integer If f_if_sheet_exists(gs_report_name) Then li_choice = MsgBox(prompt:="The sheet " & gs_r

2017-01-07 16:08:23 502

原创 create toolbar when Excel VBA Open (extract from tool 1)

********** thisworkbook **********Option ExplicitPrivate Const gs_toolbar_extract_rpt_a As String = "toolbar_extract_rpt_a"Private Const gs_toolbar_extract_rpt_c As String = "toolbar_extract_r

2017-01-07 16:03:11 376

原创 Creating Excel2013-style-toolbar in Excel2010 (Excel VBA)

*******************************************In the script screen of , to where paste the following script, *******************************************Option ExplicitPrivate Const gs_toolbar_extract

2015-03-11 11:25:27 538

Powercenter documrent 1

Powercenter self-learning document

2015-11-17

Powercenter document

Powercenter document for self-learning

2015-11-17

excel vba tool of listing folder structure

Excel VBA tool to list files/folders by certain criteria

2015-11-13

oracle sql of extracting table structure

/*----------------------------------------------------------------------------- * Function : to extract the structure of a table * * Author : Richard Wang * * Date : 2011-08-30 * * Version : 0.1 * ------------------------------------------------------------------------------*/ select 'Table_Name' table_name --,'Column_ID' column_id ,0 column_id ,'Column_Name' column_name ,'Data_Type' data_Type ,'PK_Column' PK_Column ,'Nullable' nullable from DUAL union all select distinct lower(all_c.table_name) table_name --,(case -- when column_id < 10 then '0' || to_char(column_id) -- when column_id 100 then 'H' || substrb(to_char(column_id),2,1) -- else '**' -- end ) column_id ,all_c.column_id column_id ,lower(all_c.column_name) column_name ,lower((case all_c.data_type when 'NUMBER' then all_c.data_type || decode(all_c.data_precision,0,'',NULL,'','(' || to_char(all_c.data_precision)) || decode(all_c.data_precision,0,'',NULL,'', decode(all_c.data_scale,0,'',NULL,'', ',' || to_char(all_c.data_scale)) || ')') when 'CHAR' then all_c.data_type || '(' || to_char(all_c.char_length) || ')' when 'VARCHAR2' then all_c.data_type || '(' || to_char(all_c.char_length) || ')' else all_c.data_type end)) data_type ,decode(tab_pk.pk_col_name,NULL,'',tab_pk.pk_col_name,'Y','N/A') PK_column ,all_c.nullable nullable from all_tab_columns all_c left outer join (select cu.table_name pk_tab_name ,cu.column_name pk_col_name from user_cons_columns cu, user_constraints au where cu.constraint_name = au.constraint_name and au.constraint_type = 'P') tab_pk on all_c.table_name = tab_pk.pk_tab_name and all_c.column_name = tab_pk.pk_col_name where owner not like '%SYS%' and table_name = upper('V_CHL_PORTFOLIO') -- upper case-- order by table_name,column_id,column_name select * from all_tab_columns where table_name = 'CIS_INF_PARM_VALUE' select distinct table_name from all_tab_columns where owner not like '%SYS%' and table_name like '%DELIV%' -- upper case-- order by table_name

2015-11-13