minG

2017年1月16日星期一

Excel 巨集 - 開啟檔案→修正

Sub 巨集1()
'
' 巨集1 巨集
'

'
For i = 1 To 11
n = Right(String(2, "0") & i, 3)
Workbooks.Open Filename:="C:\Users\Min\Downloads\TEMP\TEST_" & n & ".csv"
Range("B1").Select
ActiveCell.FormulaR1C1 = "新欄位名稱1"
Range("D1").Select
ActiveCell.FormulaR1C1 = "新欄位名稱2"
Range("F1").Select
ActiveCell.FormulaR1C1 = "新欄位名稱3"
Range("F2").Select
Cells.Replace What:="=-不分區", Replacement:="000-不分區", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ChDir "C:\Users\Min\Downloads\TEMP"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Min\Downloads\TEMP\TEST_" & n & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Next i
End Sub

2016年12月16日星期五

ASP.NET TreeView 的資料建立

首先要有一父子架構的資料表

Private void SetTree()
{
// 取得有父子架構的資料
DataTable dt = GetData("Select ID, Name, FatherID From MyTable");
// 跑第一層迴圈建立根節點
foreach (DataRow row in dt.Rows)
{
TreeNode root = new TreeNode(rows["ID"].ToString(), rows["Name"].ToString());
AddChildNode(dt, root);
TreeView1.Nodes.Add(root);
}
}

// 跑遞迴建立子節點
Private void AddChildNode(DataTable dt, TreeNode node)
{
DataRow[] Rows = dt.Select(string.Format("FatherID = {0}", node.Value));
if (rows.Count() > 0)
{
foreach (DataRow row in Rows)
{
TreeNode newNode = new TreeNode(row["ID"].ToString(), rows["Name"].ToString());
node.ChildNodes.Add(newNode);
AddChildNode(dt, newNode);
}
}
}

使用ASP.NET 的 AJAX 時，顯示 Loading 字樣

HTML 部份

<asp:ScriptManager runat="server">

</asp:ScriptManager>

<asp:UpdateProgress ID="UpdateProgress1" runat="server" AssociatedUpdatePanelID="UpdatePanel1">

<ProgressTemplate>

    <div class="modal">

        <div class="center">

            <img alt="" src="loader.gif" />

        </div>

    </div>

</ProgressTemplate>

</asp:UpdateProgress>

<asp:UpdatePanel ID="UpdatePanel1" runat="server">

<ContentTemplate>

    <asp:Button ID="Button1" Text="Submit" runat="server" OnClick="Button1_Click" />

</ContentTemplate>

</asp:UpdatePanel>

.CS 部份

仍然依照原先的寫法

protected void Button1_Click(object sender, EventArgs e)

{

    GetSomeData();

}

樣式的部份

<style type="text/css">

body

{

    margin: 0;

    padding: 0;

}

.modal

{

    position: fixed;

    z-index: 999;

    height: 100%;

    width: 100%;

    top: 0;

    background-color: Black;

    filter: alpha(opacity=60);

    opacity: 0.6;

    -moz-opacity: 0.8;

}

.center

{

    z-index: 1000;

    margin: 300px auto;

    padding: 10px;

    width: 130px;

    background-color: White;

    border-radius: 10px;

    filter: alpha(opacity=100);

    opacity: 1;

    -moz-opacity: 1;

}

.center img

{

    height: 128px;

    width: 128px;

}

</style>

資料來源：http://www.aspsnippets.com/Articles/Show-Loading-Progress-Indicator-using-GIF-Image-when-UpdatePanel-is-updating-in-ASPNet.aspx

2016年11月9日星期三

Excel 巨集 - 自動編號

假設有一資料夾，每個檔案都要在第一個欄位塞入自動編號的值

Sub 新增第一欄為唯一序號()
'
' 新增第一欄為唯一序號巨集
' 在Excel最左邊加上一新的欄位並給予唯一序號
'

'
For i = 2011 To 2016
Workbooks.Open Filename:= _
"C:\Users\Downloads\要加上自動編號\" & i & "NewData.xlsx"
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select '選擇 A1
ActiveCell.FormulaR1C1 = "唯一值" ' 填入欄位名稱
Range("A2").Select '選擇 A2
ActiveCell.FormulaR1C1 = "1" '填入數字 1
Range("A3").Select '選擇 A2
ActiveCell.FormulaR1C1 = "2" '填入數字 2
Range("A2:A3").Select '選擇 A2和 A3
' 以上的動作都是用錄製的
n = ActiveCell.CurrentRegion.Rows.Count ' 找到目前指定的cell的最大列數
Range("A3").Activate
Selection.AutoFill Destination:=Range("A2:A" & n)
Range("A2:A" & n).Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Next i
End Sub

2016年10月11日星期二

Html 上的 Table 匯出成 xls

HTML 部分

若 Table 中的某儲存格會有斷行的情況，則需在網頁的斷行語法加上特定的樣式 (mso-data-placement:same-cell;) 如下
<html>
<table id="myTable">
<tr>
<td>第一列第一欄<td>
<td>第一列第二欄<td>
<td>第一列第三欄<td>
</tr>
<tr>
<td>
第二列第一欄第一行<br style='mso-data-placement:same-cell;'/>
第二列第一欄第二行
<td>
<td>第二列第二欄<td>
<td>第二列第三欄<td>
</tr>
<tr>
<td>第三列第一欄<td>
<td>第三列第二欄<td>
<td>第三列第三欄<td>
</tr>
</table>
</html>
<input id="btnExport" onclick="ExportTable('myTable'); return false;" type="button" value="另存成 Excel" />

<解決方法一>
下列語法可將網頁上的特定 Table 下載為 Excel
<script>
function ExportTable(tableid)
{
var data_type = 'data:application/vnd.ms-excel';
var table_html = $(tableid)[0].outerHTML.replace(/ /g, '%20');

var a = document.createElement('a');
a.href = data_type + ', ' + table_html;
a.download = '下載.xls';
a.click();
}
</script>

<解決方法二> 個人偏好這個方式
<script>
var table_print;
function ExportTable(tableid, removeLastColCount) {
//getting data from our table
table_print = $('#' + tableid)[0].cloneNode(true); // copy 一份畫面上的table，再針對這個table 做處理
deleteColumn(removeLastColCount);
tableToExcel(table_print, '')
}

// 刪除倒數幾欄 (因為多個欄位是功能欄)
function deleteColumn(lastColCount) {
for (var i = 0; i < table_print.rows.length; i++) {
for (var k = 0; k < lastColCount; k++) {
// 刪除最後一欄(因為有合併列，所以只能用這個方式)
table_print.rows[i].deleteCell(table_print.rows[i].cells.length - 1);
//table_print.rows[i].cells[table_print.rows[i].cells.length - 1].innerHTML = "";
}
}
}

var tableToExcel = (function () {
var uri = 'data:application/vnd.ms-excel;base64,'
, template = '<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns="http://www.w3.org/TR/REC-html40"><meta http-equiv="content-type" content="application/vnd.ms-excel; charset=UTF-8"><head></head><body><table border="1px">{table}</table></body></html>'
, base64 = function (s) { return window.btoa(unescape(encodeURIComponent(s))) }
, format = function (s, c) { return s.replace(/{(\w+)}/g, function (m, p) { return c[p]; }) }
return function (table, name) {
if (!table.nodeType) table = document.getElementById(table)
var ctx = { worksheet: name || 'Worksheet', table: table.innerHTML }
window.location.href = uri + base64(format(template, ctx))
}
})()

</script>

參考來源：http://stackoverflow.com/questions/36040942/how-to-export-a-html-table-to-excel-supported-by-chrome-and-ie

2016年9月8日星期四

SQL SERVER 使用條件 IN 太慢時

如果要查詢某些資料在某資料表時，可以使用

語法一：當資料太大量時不要用，請使用語法三

Select * From TableA

Where TableA.Field_1 IN (Select Field_1 From TableB)

語法二：當資料太大量時不要用，請使用語法三

Select * From TableA
Inner Join TableB On TableA.Field_1 = TableB_Field1

語法三：

Select * From TableA as A

Where Exists (Select Field_1 From TableB Where A.Field_1 = Field1)

參考：http://frankiestudy.blogspot.tw/2012/01/sql-not-exists.html

2016年9月2日星期五

DataTable.Select 改成 LINQ 的方式，速度快上至少 10 倍

當DataTable的資料列太多時，使用 DataTable.Select() 來篩選資料的速度很慢，
此時可以改用 LINQ，速度上至少快上 10 倍之多

DataTable dt = GetDataTable(); ← 取得資料
// 假設 dt 的欄位 (ID<int>, FirstName<string>, LastName<string>)
// 使用 Select 方法時
DataRow[] = dt.Select("FirstName = 'xxx'");

// 使用 LINQ 方法時
var q = from p in dt.AsEnumerable()
where p.Field<string>("FirstName").ToString() == "xxx"
select p;

q 可能會找不到資料，
出現下列錯誤
System.InvalidOperationException: 來源未包含 DataRow。
於 System.Data.DataTableExtensions.LoadTableFromEnumerable[T](IEnumerable`1 source, DataTable table, Nullable`1 options, FillErrorEventHandler errorHandler)
於 System.Data.DataTableExtensions.CopyToDataTable[T](IEnumerable`1 source)

所以如果要將 q 轉換為 DataTable，
需先判斷 q.Count() 是否為 0
if (q.Count() > 0)
q.CopyToDataTable()

2017年1月16日 星期一

2016年12月16日 星期五

2016年11月9日 星期三

2016年10月11日 星期二

2016年9月8日 星期四

2016年9月2日 星期五