⑴ excel vba 用只读的方法打开文件的问题
Suba()DimmypathAsStringDimmyfileAsStringmypath="d:123"myfile="a.xls"Workbooks.Openmypath&myfile,,TrueEndSub
在OPEN中的第三个参数。=TRUE表示，为只读方式专打开。
测试属OK！
⑵ vba怎么把源文件复制过去的东西变成只读
首先将 在引用中 米microsoft.scripting.runtime 勾上.否则会报错的.如下图
⑶ 在VBA中怎么用语言改变excel的只读属性为读写属性
如果是Sheet的话，可以用一下方法
Sheets(sheet名).Unprotect (密码)
如
Sheets("Sheet1").Unprotect("123")
如果是工作簿，用以下方法
ActiveWorkbook.WritePassword = ""
⑷ vba如何实现对只读文件传数据
将excel和word放在同一目录下,在excel中建立按钮,双击后输入下列代码:PrivateSubCommandButton1_Click()Application.ScreenUpdating=False'关闭屏幕刷新OnErrorResumeNext'捕捉错误DimoStAsRange,wdDocAsWord.Document,wdRangeAsWord.RangemyPath=ThisWorkbook.Path&"\2.doc"'定义word文件路径,名字自己修改,我设定为2.docSetwdDoc=GetObject(myPath)'打开wordDimkey(2)'定义一下数组,key(1)="abcdefg"'要替换的数据key(2)="hijklmn"SetwdRange=wdDoc.Content'将word的文档内容赋予wdrangeFori=1To2'循环WithwdRange.Find.Text=key(i)'查找.Replacement.Text=key(i)&IIf(i=1,Cells(1,1).Value,Cells(5,2).Value)'替换.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithwdRange.Find.ExecuteReplace:=wdReplaceAll'全部替换NextwdDoc.Save'保存wordwdDoc.Close'关闭wordSetwdDoc=NothingApplication.ScreenUpdating=True'开启屏幕刷新EndSub经测试,已经达到楼主要求,请追加分数并采纳.呵呵
