如何把EXCEL的儲存格範圍A1:H3000輸出到記事本檔案的 D:\SP20110801.TXT

帖子: 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 | 只看該作者

太棒了,可以了
多謝這位超級帥哥版主
學妹非常感動呢
您真是太強太強了
感謝您並祝賀您
幸福好運永遠降臨您身上

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 276
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

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

複製代碼

回復 12# metrostar

學海無涯_不恥下問

帖子: 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位) , 其它數字+文字 (不變) 謝謝囉

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 276
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

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)

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

9^#

發表於 2011-8-5 18:54 | 只看該作者

回復 4# chin15

建議反向思考，複製要用到的幾欄，然後再改格式會比在每一行中循環取數便捷些。

oobird

　頭銜: 街友一族

帖子: 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)