如何把EXCEL的儲存格範圍A1:H3000輸出到記事本檔案的 D:\SP20110801.TXT
- 帖子
- 55
- 主題
- 20
- 精華
- 0
- 積分
- 80
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- officexp
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2010-7-5
- 最後登錄
- 2013-8-25
|
如何把EXCEL的儲存格範圍A1:H3000輸出到記事本檔案的 D:\SP20110801.TXT
學妹又來麻煩大家了
打開 EXCEL 檔有詳細說明喔
請帥哥/美女版主 帥哥/美女學長跟學姐
幫忙學妹完成
謝謝了 |
-
-
grt.rar
(16.63 KB)
|
|
|
|
|
|
|
- 帖子
- 55
- 主題
- 20
- 精華
- 0
- 積分
- 80
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- officexp
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2010-7-5
- 最後登錄
- 2013-8-25
|
15#
發表於 2011-8-23 14:43
| 只看該作者
回復 14# metrostar
學妹又有別的問題麻煩大家了
輸出到 SH9.TXT 時,為什麼會出現空格 (不要空格才是正確的)
請看圖片 |
-
-
grt.rar
(105.32 KB)
|
|
|
|
|
|
|
- 帖子
- 55
- 主題
- 20
- 精華
- 0
- 積分
- 80
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- officexp
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2010-7-5
- 最後登錄
- 2013-8-25
|
14#
發表於 2011-8-16 17:05
| 只看該作者
太棒了,可以了
多謝這位超級帥哥版主
學妹非常感動呢
您真是太強太強了
感謝您並祝賀您
幸福好運永遠降臨您身上 |
|
|
|
|
|
|
|
- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 270
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-11-4
               
|
13#
發表於 2011-8-16 17:00
| 只看該作者
- Sub test()
- With Sheet1
- For r = 1 To .[A65536].End(xlUp).Row
- If r = 1 Then
- Mystr = Array("<TICKER>", "<DTYYYYSSDD>", "<OPEN>", "<HIGH>", "<LOW>", "<CLOSE>", "<VOL>")
- Else
- x = IIf(Sheet2.[j1] = "", "'", Sheet2.[j1]) & Format(.Cells(r, 1), "0000")
- Mystr = Array(x, Format(Date, "yyyymmdd"), .Cells(r, 3), .Cells(r, 4), .Cells(r, 5), .Cells(r, 6), .Cells(r, 8))
- End If
- Sheet2.Cells(r, 1).Resize(, 7) = Mystr
- Next
- End With
- End Sub
|
|
|
學海無涯_不恥下問
|
|
|
|
|
- 帖子
- 55
- 主題
- 20
- 精華
- 0
- 積分
- 80
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- officexp
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2010-7-5
- 最後登錄
- 2013-8-25
|
12#
發表於 2011-8-16 16:54
| 只看該作者
回復 metrostar
Hsieh 發表於 2011-8-16 14:46 
多謝 超級帥哥版主 , 不好意思呢 ? 學妹沒表達清楚
只有純數字要變(不足4位補足4位) , 其它 數字+文字 (不變) 謝謝囉 |
|
|
|
|
|
|
|
- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 270
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-11-4
|
11#
發表於 2011-8-16 14:46
| 只看該作者
回復 10# metrostar - Sub test()
- With Sheet1
- For r = 1 To .[A65536].End(xlUp).Row
- If r = 1 Then
- Mystr = Array("<TICKER>", "<DTYYYYSSDD>", "<OPEN>", "<HIGH>", "<LOW>", "<CLOSE>", "<VOL>")
- Else
- x = IIf(Sheet2.[j1] = "", "'", Sheet2.[j1]) & Format(Val(.Cells(r, 1)), "0000")
- Mystr = Array(x, Format(Date, "yyyymmdd"), .Cells(r, 3), .Cells(r, 4), .Cells(r, 5), .Cells(r, 6), .Cells(r, 8))
- End If
- Sheet2.Cells(r, 1).Resize(, 7) = Mystr
- Next
- End With
- End Sub
|
|
|
學海無涯_不恥下問
|
|
|
|
|
- 帖子
- 55
- 主題
- 20
- 精華
- 0
- 積分
- 80
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- officexp
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2010-7-5
- 最後登錄
- 2013-8-25
|
10#
發表於 2011-8-16 08:30
| 只看該作者
回復 9# oobird
太棒了,可以了
多謝這位帥哥超級版主
學妹非常感動呢
您真是太強太強了
感謝您並祝賀您
幸福好運永遠降臨您身上
學妹 還有小小問題
如果遇到 I1儲存格的 MY 時 , J1儲存格為空
想要 A2:A65536 的純數字為4位數,不足前面補0
例如 A2 儲存格 目前為 12,要 0012 才對 怎麼做呢 ? |
-
-
Book4.rar
(20.51 KB)
|
|
|
|
|
|
|
- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
9#
發表於 2011-8-5 18:54
| 只看該作者
回復 4# chin15
建議反向思考，複製要用到的幾欄，然後再改格式會比在每一行中循環取數便捷些。 |
|
|
|
|
|
|
|
- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
8#
發表於 2011-8-5 18:49
| 只看該作者
你的sheet1[j1]空無一物，當然是空白了
原來放在sheet1[j1]的m妳把他改成放在sheet2
代碼妳就得跟著改才會正確執行
If IsNumeric(x) Then
x = Sheet2.[j1] & Application.Text(x, "0000")
Else
x = Sheet2.[j1] & x
End If |
|
|
|
|
|
|
|
- 帖子
- 55
- 主題
- 20
- 精華
- 0
- 積分
- 80
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- officexp
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2010-7-5
- 最後登錄
- 2013-8-25
|
7#
發表於 2011-8-5 11:53
| 只看該作者
回復 6# chin15
謝謝樓上的帥哥學長
同樣的程式為什麼用在 book4.xls 跟 book3.xls 為什麼會這樣 ?????
真的好奇怪喔 , 不知原因出在那裡呢
帥哥學長提供的程式為什麼在這檔案不能用呢?
用在 Book3.xls 可以, 使用在這 Book4.xls 就不行 |
-
-
Book4.rar
(20.26 KB)
|
|
|
|
|
|
|
