這個月交易機會變多,但開高走低,一開始先賺,後面開始賠。
最後也是小賺1千6左右而已,今年看來連去年一半的績效都達不到了。
4/12 開始慢慢買QQQ,一開始其實沒什麼動,後來還有點往下殺,反正就下殺就多買一點,往上漲就少買一點,都是買很少的零股,到現在3個月了,也才買快2股。
雖然很少,但看到它最近一直漲,目前帳面未實現獲利快10%了,也是蠻爽的,就繼續慢慢買吧,希望它能一直穩定向上。
outlook如果要開啟pst檔,有點麻煩,因為一次只能開啟一個,但偏偏有的user有超多pst檔,所以在換電腦的時後非常麻煩。
網路上有人有分享用powershell去一次把所有pst做掛載,是可行的,但偏偏就是遇到有一台電腦執行時會失敗,所以就想找找有沒有其他方式。
沒想到還真的有,就是用vba去執行,方法如下:
在outlook的畫面中,按下"alt + f11",然後就會開啟一個vba的編輯畫面,然後將下列的程式碼碼上,記得在第二個的地方,要把路徑改成你的pst檔案的資料夾路徑,然後執行,就成功了。
Sub BatchOpenMultiplePSTFiles()
Call LoopFolders("E:\")
MsgBox "Open Successfully!", vbExclamation + vbOKOnly, "Open Outlook Data File"
End Sub
Sub LoopFolders(strPath As String)
Dim objFileSystem As Object
Dim objFolder As Object
Dim objFile As Object
Dim objPSTFile As Object
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileSystem.GetFolder(strPath)
For Each objFile In objFolder.Files
strFileExtension = objFileSystem.GetExtensionName(objFile)
If LCase(strFileExtension) = "pst" Then
Set objPSTFile = objFile
Outlook.Application.Session.AddStore (objPSTFile.Path)
End If
Next
If objFolder.SubFolders.Count > 0 Then
For Each objSubFolder In objFolder.SubFolders
If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
LoopFolders (objSubFolder.Path)
End If
Next
End If
End Sub
有一台acer win7電腦,三不五時會出現藍底白字的當機。
把c:\windows裡的MEMORY.DMP檔打開來看,有看到一些關鍵字:
ERROR_CODE: (NTSTATUS) 0xc0000185 - I/O m i @ I/O ~ C
DISK_HARDWARE_ERROR: There was error with disk hardware
MODULE_NAME: ataport
一台新的win10上面有outlook2010,每次收到會議邀請時,內容都很像亂碼,但其實仔細看都是原始碼,不管誰寄來的邀請都是如此,所以判斷是本機的問題。
重設顯示檔,換新的pst,都一樣,最後就直接對office進行修復~好了,就這麼簡單解決掉問題。
今天九點多做了小台一口空單,進場後就開始往下殺,爽啦!!
未實現獲利來到50點後,後來有把停損點移到進場價。
沒想到在下殺到70多點後就開始往上拉了,最後就打到後來的停損點,賠了手續費出場。
可惜了。
cash magnet 已累績5500點以上了,所以就來出金看看,可以出5美金,大概過了快一週了,還在pending,看網路上人家的分享,好像快一個月才會入帳,只好慢慢等囉。
難得的進場日,九點多做多一口小台,結果就開始一直在震盪,大部份的時間都是處於虧損的狀態。
等到10點感覺快要打到停損點了,沒想到就往上,但一樣就上上下下,最後等到11點,時間到,就手動停損出,賠了20多點。
但後來看了一下,結果後面就一直往上拉耶,什麼鬼啊。
策略就是沒有完美的,有時後因為這樣避開獲利回吐,但有時又因此錯失轉虧為盈的機會。